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Current memory available: 512 


0000] »title "PCcard - firmware for IBM-PC AppleTalk" 
0000} OOOO I III II III GIGI GIGI GICICICIGICIGIICIGIGIGIDIGIGIOISIGI ICI ICICI III IIIT OOOO IIIA ATR IK 
0000| >* This is the master file for assembling the AppleTalk PC-card ROM. 
0000| 7* 

0000| 7* Modification history: 

0000} 7* 

0000 | 7* 08/10/88 RRH 

0000 | 7* ECO, 34x-0007-B14 

0000} iad fixed initialization code for SCC, 

0000| 7* 

0000| 7* 05/29/87 RRH 

0000 | ;* ECO, 34x-0007-B12, B13 

0000} 7* fixed checksum bug in pcDDP. 

0000 | is 

0000 | 7* 01/09/87 RRH 

0000 | x ECO, 34x-0007-B11 

0000] * changed freeDMA to use SCCctrl for f£DMA clear. 
0000 | 7* 

0000| 3* 12/01/86 RRH 

0000| pe ECO, 34x-0007-B10 

0000] 7* changed SCCintr code for "lost" interrupts. 
0000} is added CMDhst for logging host commands. 
0000 | * 

0000] ;* 11/18/86 RRH 

0000| is ECO, 34x-0007-B9 

0000] ee adjusted txLAP timings; 16 abort bits, 200 msec 
0000 | .* RTS-DATA Broadcast IFG, 

0000] a* 

0000| 7* 11/13/86 RRH 

0000 | at ECO, 342-0007-B8 

0000 | fe fixed length calculation in rxLAP, so rxDDP works! 
0000 | 7* 

0000] 7* 10/31/86 RRH 

0000] 3* ECO, 342-0007-B6/7 

0000} a* added pcDBG, 

0000| a* added CheckSumming call ($25) for DDP 

0000} ae 

0000| 7* 8/21/86 RRH 

0000 | Ts ECO, 342-0007-B5 

0000 | ae removed creation of TTTBL on XO TReq; 

0000| :* 

roforeren: 3* 5/27/86 RRH 

0000| 

0000 | at ECO, 342-0007-B4 

0000| on fixed nRXREQ timer bug (not setting ttTmr) 
0000| ze fixed bldHdr bug (skipping CKS, sNode) 

0000 | ae 

0000 | ¢* 3/13/86 RRH 

0000 | a* ECO, 342-0007-B3 

0000 | ge fixed filtering; 

0000| nx deleted auto-matic TID generation 

0000] ¢* 3/12/86 RRH 

0000 | un ECO, 342-0007-B2; changes: 

0000 | il added filtering (SysFlgs) 
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0000| 7* 

0000| ;* 3/1/86 RRH 

0000] ye ECO, 342-0007-Bl; changes: 

0000} q* changed to create TITBL entry on rev of XO TReq; 
0000] i use this entry on SENDRSP. 

0000} y* 12/8/85 RRH 

0000| 3 ECO, 342-0007-B; changes: 

0000| ;* use chanB DCD for pcDMA. 

0000| id change retry DDP to use ATP timing logic. 
0000] 7 fixed SENDNBP TmOutErr leaving nbTTP set 
0000} on 

0000| 7* 9/10/85 RRH 

0000] 7% ECO, 342-0007-A; changes: 

0000] 7* reset ttTmr when STS reply recv'd for SendResp. 
0000| is pass XO flag on TResp packets. 

0000 | PR prevent fake DMAinfo on TRel send. 

0000 | 7 modified DDP/ATP as per changes (4/26/85). 
0000 | Hes ECO, 342-O0007-A; additions: 

0000] i* RTMP handling. 

0000 | 7* DDP transmit retry mechanism 

0000) Had 

0000 | ial 8/17/85 RRH 

0000 | E * initial release of ROM, 342-0007. 

0000} 7* 

0000 | 7* Copyright Notice: 

0000 | an (C) Apple Computer, Inc., 1985, 1986, 1987, 1988 
0000 | 

0000 | ee All rights reserved. 


0000| 7* Ron Hochsprung, 8/10/88 
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0000 | OI IRR III GIGI CII OICIOIGI OI ICICI ICICI CII ICR TORO ROOK IIR I IIHR RK 
0000} 

oooo| .absolute 

oooo| 0001 £ROM .equ i 3 0 -> ROMulator, 1 -> real ROM 

0000 | 

0000} -include PCDEFS 7 Symbolic equates for PCcard 

0000| peer PCDefs.text, definitions file for IBM-PC AppleBus card 

0000 

aoee: FOI RR ROR RI II III III GIGI ICI GIGIDIGIIGIDIGIOIGI IIIS CIGIT ICICI TOCCOA IK 
0000| 7** basic hardware base addresses 

0000 | DORIC III ICI III III IIIS IGIGIGIOIC ICICI ICI ICICI ICI IC IACI I Ik 
oa000| 4000 scecCtrl .equ 04000 + control address (B-port) 

0000| 4001 scecData .equ 04001 7; data “ a“ 

0000] 4002 secCtrlA .equ 04002 ? control " (A-port) 

Oo000|{ 4003 secDataA .equ 04003 3; data id m 

0000| 4002 DBGctrl .equ 04002 7 DeBuG port (A) 

0000! 4003 DBGdata .equ 04003 ; " 

0000| 8000 DMAreg .equ 08000 ; DMA (IBM bus) address space 

0000| cO00 STATreg .equ 0co00 ; Status reg -> IBM 

0000} EOO0O ROMbase .equ OEOOO ; starting address for ROM 

0000 

nena] DOCG ISI GIGI IIIS IIS IEISISI SIDI SISIGIIISISIIBIGICISIOGIICICICICISIOISISIGISIGISIGISIOICITIGIOICI GIO IOI II IK 
0000| 3;* STATreg values. These values are used to indicate to the PC what 

0000| 3* our code expects the DMA channel to be setup with. When nothing is 

0000] 3* expected, the STSidle value is used. Note that values are in upper 

0000 | 3;* nybble, even tho they show up in low one on PC; that's the way the dumb 
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0000| +* hardware works..... 

0000 | 

0000 | GORI RI II RR RIOR II ITO RR ROI I TOI ORK TICK RIOR IRI RR KTR KR I TK IK IK IIR IR RIE 
O0000} 0080 DMAidle .equ 080 ; idle status 

0000| 0090 STSrdy .equ 090 ; status is available (REQdone) 

0000| OOAO REQinfo .equ OAO 7 Request Info (PC) -> card 

0000| OOBO REQdata .equ OBO ; Request Data (PC) <-> card 

0000} O0CcO DMAinfo .equ oco 7; DMA reg -> PC 

O0OO00{ QODO DMAdata .equ ODO ; DMA data <-> PC 

0000 

5006 | BORO III ITO ICO ICICICIOI ICICI III IOI IIRC TC ICICI RICH RR TR RIK 
0000| :* scc related addresses 

0000 | FOI III ICICI III ICICI ICID IOIOI CII III ICICI TR IIT AR RAR RK EK 
0000} i* ReadReg O defs 

0000| 0001 RCA .equ ooocooolit 7; Rx Char Avail 

0000| 0004 TBE .equ o00000100t 7; Tx Bir Empty 

0000| 0008 DCD .equ 00001000t ; Data Carrier Detect 

0000| 0010 HUNT -equ 00010000t 7 Hunt mode (Q-> in packet) 

0000|] 0020 cTS .,equ 00100000t : ClearToSend 

0000| 0040 EOM .equ 01000000t ; EndOfMessage (Tx UnderRun) 

0000! 0080 ABORT .equ 10000000t ; Abort sequence detected 

0000| 

0000 | i** ReadReg 1 defs 

0000| 0020 OVR .equ 00100000t 7; Rx OverRun 

0000; 0040 CRC .equ 01000000t 7; Rx CRC error 

0000] 0080 EOF ,equ 10000000t ; Rx EndOfFrame 

0000| 

0000| y** ReadReg 10 defs 

0000| O0CcO MCmask .equ 11000000t 7 missing clock mask (1 / 2 clocks) 

0000 

A000 | FORO IO III ICICI ICICI IO ICG ICICI ICICI TIO RIO AIR RI OK 
0000 | ;* Link Access Protocol (LAP) definitions. (offsets) 

0000 | JOGO IGOR IG GIGI GIGI ICICICIGICIII CIC IOIGI GIG ICI IOI IOI IK 
0000| 0000 laDst -equ 0 ; offsets of LAP info 

0000| 0001 laSre .equ 1 

0000| 0002 laType .equ 2 7 encapsulated type 

0000| 0003 laData .equ 3 ; offset of start of user data 

Q000| 0001 laDDP -equ 001 7 normal (short) DDP 

0000] 0002 laDDPX equ 002 7 extended (long, internet) DDP 

Oooo! 0081 lLaENQ .equ 081 y ENQUIRY, auto-node assignment 

Q000| 0082 lLaACK .equ 082 ; ACKNOWLEDGE, response to ENQ 

co000| 0083 laNAK -equ 083 ; Neg-ACK (maybe, some day) 

COOoO}] 0084 lLaRTS .equ 084 ; RequestToSend 

0000}; 0085 lacTs -equ 085 : ClearToSend 

0000} 

0000 | JOR III III IOI IGICIDIGIGIIICICIOIDIGIICICIOIGI ICICI IGIICICI ICI CICIOIOI GIR CICIOIC ICICI ICI I ICI KK 
0000 | 7* Directed Datagram Protocol (DDP) definitions. 

0000 | :* offsets are from DDP header; must be further offset by laData. 

0000 | 3* "ddXXX" names are for short DDP, "xdXXX" for DDPX. 

0000 | ORICA I IGRI II TCIGIGIGIIGIOIOISIOIOI II III ICICI II ICICI III ICICI OR IAAI I ICR I 
0000} 

0000} 0000 ddLng .equ 6) ; length field (12 bits) 

oo00[ 0002 ddDskt .equ 2 7 dest socket number 

0000] 0003 ddSskt .equ 3 7; source " “ 

0000] 0004 ddType .equ 4 7 encapuslated type 
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0000; 0001 ddRIMP .equ 001 ; Routing Table Maintenance 
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0000| 0002 ddNBP .equ 002 ; Name Binding 

0000| 0003 adATP .equ 003 ; AppleTalk Transaction 

0000} 0005 ddRTMP 1 .equ 005 3; RTMP+ 7-A 

oooo| 0005 ddData .equ 5 ; user data 

0000| 

0000| 0000 xdHopCt .equ 0 7; hop count (4 bits) 

0000| 0000 xdLng .equ 0 ; length field (12 bits) 

OO000| 0002 xdCKS 2equ 2 7; checksum (2 bytes) 

0000] 0004 xdDnet .equ 4 7; dest network number (2 bytes) 

0000] 0006 xdSnet .equ 6 j source " " 

OOOO} 0008 xdDnode .equ 8 ; dest node address 

0000} 0009 xdSnode .equ 9 7 source “ " 

0000| OO0A xdDskt .equ 10. 7; dest socket number 

0000| O00B xdadSskt .equ 11. 7; source " " 

0000| 000c xdType .equ 12. ; encapsulated type 

0000} OO0D xdData .equ 13. 7; user data 

0000| 

0000| BOI IGG III IOICI GIO IG OICISICIOIOGIIDIDICI ICICI IOI IAI III TIN 
0000] ¢* Routing Table Maintenance Protocol (RTMP) definitions. 

0000 | GODS ICICI GIGIO IOI CICICIGICICISIDIDIOIDICICIGI CITI ICICI OCI IGG TOR IO IIR IIIA AK 
0000| 0000 ytmNet .equ 0. ; offset of net# 7-A 

0000 | 

0000| 0001 ytmSKT .equ 1. + Socket # for RTMP ;-A 

0000| 0001 rtmCMD1 .equ 1s ; command for RTMP+ ;-A 

0000 

a066) JORIS GIGI GIGI CI CIGIGIGIGIOIOIOI III CI CII CICI OCC OCI OCT TIT TIT K 
0000} ;* Name Binding Protocol (NBP) definitions. 

0000] FOIIIIIOIOI III III GIO ISCO ICI CIDIOISI SI CICISI ICIS III CIC ICICIGIOI IGOR CII OI TR IK 
0000{ 0002 nbNIS .equ 2. + Socket # for all DDP datagrams 

0000 

A600 | FORK ICI II III ICI III IGICICIGIOIDIOIGIOI ISI IIIT CII CICICICIC GIGI IC ICICI III ITT 
0000 | i* AppleTalk Transaction Protocol (ATP) definitions. 

0000 | s* offsets are from ATP header; must be offset by ddData/xdData. 

0000 | TORII III III GIG GIO II III TIO II IORI ICICI ICICI A IR IK IR TOK 
0000{ 0000 atccl 2equ 0 7; Command/Control Info 

0000] O0CO atCmsk .equ 11000000t : mask for Control bits 

0000} 0040 atREQ .equ 01000000t 7; REQUEST code 

0000} 0080 atRSP equ 10000000t ; RESPONSE code 

0000| O0cO atREL .equ 11000000t ; RELEASE code 

0000| 0020 atxo .equ 00100000t 7 eXactly Once 

0000| 0010 atEOM -equ 00010000t 7 End Of Message 

0000| 0008 atsTs .equ 00001000t ; STatuS request 

0000] 0001 atBtMap .equ 1 7; Bit map (TReq) 

0000] 0001 atSqNbr .equ atBtMap 7; Sequence Number (TResp) 

0000| 

O000| 0002 atTID .equ 2 ; Transaction ID 

OO000| 0004 atUser .equ 4 7; 4 bytes of “user" data 

0000| 0008 atData .equ 8 ; data starts here 

0000] 

0000 | JOGO IR IGRI IIIT III III III CII I ICICI ICICI ICICI IC RIT I I 
0000} ;* Task table defn's 

0000| :* These definitions reflect the organization of the task table. There is 
0000 | 7* on entry for each of the system's tasks. 

0000 | ORI III ITC OIC III ICICI ICICI CIO IIR IIR RGR RIO RIOR IK RR RIK K 
>>>>PAGE - 4 FILE: PCDEFS.a65 PCcard ~- firmware for IBM-PC AppleTalk 

0000 | 

Q000| 0000 tFlags .equ 0 7; Task flags 

0000| 0080 tREADY .equ 10000000t ; “ " running (at least, ready to run) 
0000} 0001 tWaits .equ 1 3 what task is walting for 

0000}; 0001 s SEMA -equ ooooo00dit 3; task is waiting on semaphore (all) 

0000| 0002 SNEWREQ -equ 00000010t 2 vo - for a Host req (ATP) 
0000| 0004 sTXDONE -equ 00000100t : mu " for XMTdone (CMD/ATP) 
oooo| 0040 SONESEC .equ 01000000t : woe Sy "  one-second intr (ATP) 
0000 | 

0000! 0002 tNext .equ 2 ; Next Task on a queue (e.g., semaphore) 

0000| 0003 tSP .equ 3 7; Stack pointer for this task 

0000{ 0004 tButN .equ 4 ; buffer for this Task (may be ist of queue) 

0000| 0005 tRslt equ 5 7 result of request 

0000} 0007 tRID .equ 7 ; Request ID of this Task 

0000] 

0000; 0008 tSize .equ 8 3; length of each entry. 

0000| 

0000| 0000 s¢nt -equ 0 7; Semaphore counter 

0000| 0001 sQhd .equ 1 ; Queue header for semaphore 

0000| 0002 sQtl .equ 2 ; “ tail - a 

0000| 0003 sOwn .equ 3 ; Semaphore owner (OFF if none) 

0000 | 

0000| O000 tO .equ 000 7 a temp 

0000| 0001 tl  .equ 001 : another.. 

0000| 0002 t2 .equ 002 

0000| 0003 t3 equ 003 

0000{ 0004 t4 equ 004 

0000] 0005 t5 equ 005 

0000{| 0006 t6 equ 006 

0000| 0007 t7 «equ 007 

0000| 0008 t8 .equ 008 
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0000| 9009 
0000{ 

0000} 000B 
0000] 000c 
0000} 

0000] 0010 
0000] 0020 
0000] 0008 
0000} 0011 
0000} 0012 
0000} 0013 
0000] 0080 
0000| 

0000| 

0000} 0001 
0000} 0002 
0000} 

0000 

0000] FFFF 
0000| FFFE. 
0000| FFFD 
0000| 

0000| FFFC 
0000] FFEF 
>>>>PAGE - 
0000| FFEE 
0000| 

0000] 0014 
0000] 0018 
0000] 001A 
0000{ o01¢ 
0000| 001£ 
0000] 001F 
0000| 

0000| 

0000| 

0000 

0000} 0020 
0000} 0024 
0000] 0024 
0000} 0025 
0000| 0026 
0000] 

0000} 002F 
0000} 1F80 
0000| 

0000} 0030 
0000] 0001 
0000} 0002 
0000| 0004 
0000| 

0000] 0008 
0000} 0010 
0000} 

0000} 

0000| 

0000} 

0000] 0040 
0000| 0048 
0000] 0050 
0000] 0058 
0000} 

0000] 0040 
0000} 0044 
0000{ 0047 
0000| 0045 
0000| 004c 
0000| 0054 
0000] 0058 
0000| 005C 
0000| 

0000] 

0000} 0060 
0000| 0061 
0000] 0061 
0000} 0062 
0000} 0063 
0000 | 

0000 

0000] 0068 
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0000} 


t9 equ 


aBridge 
ThisNet 


pcFlags 
EREQ 
DMA 
peIdle 
pcREQ 
myFlags 
fMyNode 


equ 
-equ 


.equ 


equ 


equ 
equ 


009 


equ 
equ 


-equ 
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00B ; a Bridge on our Network 
o0oc ; our network # (determined from RMTP) 
010 7 flags relating to PC actions 
cts 7; Pc is requesting service 
DCD 7; PC says DMA is now setup 
O11 : idle state status (either DMAidle/STSrdy) 
012 # REQcode from PC 
013 7; some flags for our usage 
10000000t 7 myNode is valid 


i** warning codes (these are not "fatal") 
.equ 001 7 Socket/protocol error 
c 


SKTerr 
ABTdone 


.equ 002 


3** error codes 


REQerr 


NoFreeErr 


TmOutErr 


NoTTErr 
DeferErr 


ABT finished 


.equ -001 7; REQuest is illegal 

equ -002 ¢ no Free buffer 

equ -003 7 REQ/RSP timed out 

-equ -004 7; no TTtbl entry for this RID 
.equ -O11 7; excess Defers (txPacket) 
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ColsnErr 


rtP .equ 
dP .equ 
dc .equ 
TMRsecs 
RTMPtmr 
ATPsecs 


equ 
equ 
equ 


.equ -012 ; by Collisions " 
014 7; RCVtask's ptr (to packet) 
018 7 DMA pointer 
O1A ;)60O "counter 
o1c ; seconds value (16-bits) 7A 
O1E ; timer for RTMP invalidation i7A 
O1F ; last TMRsecs that ATP was updated 


RRR IR RR I KR KK IK RRR IR IK RIOR IK RIK IK IK IRR KK IK TK IT IHR KKK TR KIKI KR IK RR AIK 


:* stuff used by XMTtask 
IORI RI IR OIF RR ICI IO IORI III ITI RIOR TOI IORI IK ITOK FOR RIKI KI IK AIHA RAR KERR RAK 


XMTsema 
xmitQ 

xmitQhd 
xmitQtl 
GtP .equ 


CMDhstP 
CMDhst 


SysFlgs 
fNLAP 
fALAP 
ENDDP 


f£ADDP 
£NATP 


.equ 
-equ 
.equ 
.equ 


equ 
equ 


.equ 
equ 
equ 
.equ 


.equ 
.equ 


026 


020 3; the semaphore for XMTtask 
024 7 queve for XMTtask 
xmitQ 
xmitQt+l 

7 working buffer ptr for XMTtask 
O2F > index into CMDhst 
01F80 ; Command History table 
030 ; System Flags (protocol overrides, etc.) 
ooo000dlt 7; 1-> No LAP pkts (no receives!!) 
00000010t ; 1-> All LAP packets (no filtering) 
00000100t 7 1-> No DDP processing (all LAP) 
00001000t 3 1-> All DDP (no skt filtering) 
00010000t ; 1-> No ATP processing 


OK RRR RR RR RI IRR TOTO RIK ROKR TOR KR RK I RIK RR TK RIK KIT RR RIK IK IK RRR IK RIK KR IKK 


;* Task control Tables for our tasks. 
ORR RI ROR IIR IOI RIOR ICR I IOI I III IR RII KIRK IRI KR IKK RIK KR RIKKI RIK AAR KKK 


CMDt cb 
XMTt cb 
RCVtcb 
ATPtcb 


CMDFlgs 
CMDBufN 
CMDRID 

CMDRs1lt 
XMTBufN 
RCVBuftN 
ATPFlgs 
ATPBufN 


.equ 
equ 
equ 
equ 


equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


Host I/F task 
Transmit task 
Receive task 
ATP task 


040 
048 
050 
058 


=a Se Me Ne 


CMDtcb+tFlags ; special symbols for shorthands 
CMDtcb+tBufN 

CMDtcb+tRID 

CMDtcb+tRsit 

XMTtcb+tBufN 

RCVtcb+tBufN 

ATPtcb+tFlags 

ATPtcb+tBufN 


7** main task control params here 


theTask 
TaskQ 

TaskQhd 
TaskQtl 
theParm 


equ 
equ 
equ 
.equ 
equ 


060 ; current task, O if none active 
061 7 task queue header 

TaskQ 

TaskQ+l 

063 y; current Parameter Ptr 


7** working packets for Tx/Rx 


RTSfrm 


.equ 


068 ; 3-byte area for Tx LAP control frames 
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myNode 
cTSfrm 


equ 
equ 


RTSfrm+laSre 7 our node number 
O6C 7 3-bytes for RTS/ENQ responses 
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0000 

ee BOI RR KI IO RRR IKK IK RRR IR RIT OK RIK IR RIK IIR IK IK TOK IR IK OK KR RR KAR RIK RAR KKH 
0000} 7* The big 4 semaphores, about which the flow of a task's execution 

oooo| 7* revolves. 

0000] BOG IG IG IGG ICI ICIGIIGIGIOIGIGIIDIGIIIDIGIGICIGISISICIISIGIO IS ICI GIGISIOI SITIOS ICICI ICI Ok 
0000| 0070 REQsema .equ 070 3; semaphore for incoming Requests 

0000| 0074 DMAlock .equ 074 : bd " DMA access (owns Status Reg) 

0000| 0078 XMTlock .equ 078 ; * " Transmit 


0000| OO7C ATPlock .equ o7C be " TT modification 


0000 | 


0000 | BOI TI ROR TOR RR IK TOR TOR TOR ROR TOK FOR ITI TOR FOR ITOK RI IT OR I IKK RIK IK IA RIK IR RR KIKI KR RK EK 


0000| 3;* Free frame storage control. We have room for 11 frame buffers (each 
0000] 3* of length 640 bytes). The available buffers are kept track of in freeQ. 
0000| +* The "next" field for each buffer are contained within the same area, not 
0000| +* in the buffers themselves. Note that the buffers actually start in page 
0000 | 7* 0400. 

0000 | FOI OR GR I OOO OR IOI IOI IOI I TORII IIR III ROR TOR RII RICK RIOR OK IK AK 
0000| 0080 freeQ equ 080 ; start of queve control area 

0000| 0080 freeQhd .equ freeQ 

0000! 0081 freeQtl .equ freeQtl 

0000| 0268 HDROFS .equ 0268 ; offset of header in buffer 

0000| 

0000} 

OO000| OO8E STSQhd .equ O8E 7 queue of result status's (STStbl = 0100) 

0000| OO8F STSQtl .equ sTSQhd+1 

0000 | 


0000 | ORI IO ICI IOI OIGICIOI IOI IOICICIICIICIOI I III OIG OIC IOI ICR TOR AITO IOI IK 
0000| #* Tx variables. These are used by the txPacket routines, whose access 
0000 | 7* is controlled via the XMTlock. Only one task may be trying to transmit 
0000 | 7* a "packet" at one time. Note, however, that txFrame may be called by 
0000 | ?* others (rxIntr). 

0000 | ORR IO IIR RRR FOR CRO IOI IORI TO IORI IK IOI ROR III ROR ICR III IO AK RRR RK 


0000| 0090 £xPh equ 090 header, pointer 


0000{ 0092 txCh equ 092 i . , count 

0000| 0094 LxPd -equ 094 ; data, pointer 

0000| 0096 txcd .equ 096 7.06"), 6count 

0000} 

0000 | BIR IIR RR IK RR KR KK IK RRR RK IK KIKI RIK RR RK RR RRR KKK RR KR RH KAR RR RIK KEK KK 
0000| ¢* Rx variables. rxP/rxC represent current free buffer info. rP/rc 

0000 | :* are working copies which the rxIntr routine uses. In case of an error, or 
0000{ 3* when a new frame buffer is allocated, rP/rC are reset to values of rxP/rxc. 


0000} e* If rxP(rP) is zero, no buffer is available. Note that since all 
0000 | :* buffers are allocated in non-zero page, checking rxP+1 is sufficient. 
0000] 

0000 | BOOK IO TOR RR RK RR I KK KR KKK RRR RK KK RR RIK RR RIK RR ERK KR KERR RRR RRR KEK EK KKK 
0000| OOAO YP .equ QAO ; working copies of rxP, rxC 

0000| O0A2 re .equ OA2 

0000| O0A4 rxP .equ OA4 ¢ Rx pointer 

0000] 0260 rxCsz .equ 608, 7; Max packet size (plus slop) 

0000| OOAG yxBufN .equ OAG ; rxIntr's buffer number 

0000] 

0000} O0A8 RCVsema .equ OA8 7; RCVtask's semaphore 
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0000| OOAC recvQ .equ OAC 
0000| OO0AC recvQhd .equ recvQ 
0000| OOAD recvQtl .equ recvQtl 
0000] 

0000{ OOAE {Type .equ OAE 
0000; OOAF laState .equ OAF 
0000| 0000 laIdle -equ 0 


" queue 


br 


<>0 iff, a Frame was received 
current LAP state 
nothing happening 


ss Se 


0000| 0001 laDATwt -equ 1 ; waiting for Data (RTS seen, CTS sent) 
0O00| FFFF LacCTSwt .equ -1 7 us "  cTS (RTS sent) 

0000 | 

0000 | ORR ROR OR ORO OR TOR ICRI IO III ICICI R TCR ICICI OR IOI ROR ITI CRICK TOTO RTO IR KK 
0000| ;* global counters used for errors, statistics, etc. 

0000 | JOO IO ICICI ICICI ICI ICICI IO ICR CRO ROO IOI RIOR FO TOR FOR AR RK 
0000| OOBO Counts .equ OBO 7 origin of counters 

0000} OOBO INTct .equ Counts ; RCA interrupts 

0000| OOB2 RXPct .equ INTct+2 7 valid Packets (data) Rx'd 

0000| OOB4 TXPct .equ RXPct+2 ; Packets correctly(?) sent 

0000| 

0000 | 7** errors detected by Rx code 

0000 | 

0000| OOBG RTSct .equ TXPct+2 ; RIS/ENQ 

O0000| OOB8 cTSct .equ RTSct+2 3; CTS/ACK 

0000| OOBA SKPect .equ cTSct+2 7; SKiPped packets 

0000| OOBC UNDct .equ SKPct+2 ; UNderRuns 

0000! OOBE OVRect .equ UNDct+2 7; OVerRuns 

0000! O0CO CRCct -equ OVRct+2 7; CRC errors 

0000| O0C2 BADct .equ CRCct+2 7 Bad packets 

0000| O00c4 LNGct .equ BADct+2 7; bad Length packets 

0000| 00Ccé6 DUPct equ LNGct+2 7 Duplicate Node# detects 

0000 

ae FOR IRR TRI TK FOR RK RRR OI RR RK RIK RIK RR ROR RR IR RR RRR RRR RR KK EK EK 
0000 | ;* Stuff needed by SNDNBP. 


0000 | POIROT FR KI KI TOR TOR I RR KK ROK KR RK TOR IK KIRA TOK IK KR ARK RK AR KKK RK RK 
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Q000| O0CcCc 
0000} OO0cD 
Q000| OOCE 
0000} 
0000| 
0000] 
0000} 
0000} 
0000| 
0000] 
0000| 
0000| OODO 
0000| O0D2 
Q000| O0D4 
OOOO} OODS5 
0000| OOD6 
0000| OOD7 
0000} O0OD8 
0000} O0D9 
0000] OODB 
0000} OODD 
0000| OODE 
>>>>PAGE —- 8 
0000} 
0000] 
0000 | 
0000| 
QO000| OOEO 
0000| OOE2 
Q000| OOE4 
0000 | 
0000| OOE8 
Q000| OOE9 
0000 | 
0000| OOEC 
0000{ OOEC 
0000{ OOED 
0000{ OOEE 
0000 | 
0000 | 
0000 | 
0000} 
0000| 
0000| OOFF 
0000] OOFC 
0000| OOFB 
0000! 0080 
0000} 0040 
0000} 0010 
0000| 0008 
0000| 0004 
0000} 0002 
0000; 0001 
0000; OOFA 
0000| OOF9 
0000| OOF8 
0000| OOF7 
0000 | 
0000] OOF6 
0000] OOF4 
0000! OOF2 
0000] OOF1 
OOOO} OOFO 
0000| 
0000 
0000| 0002 
0000| 0003 
0000| 0006 
0000| 0015 
0000] 
0000] 
0000 | 
0000 | 
0000 | 
0000| 
0000| 
0000] 
0000] 
>>>>PAGE - 9 
0000} 
0000| 
0000 | 
0000| 
0000} 


abTTP .equ oce ; ptr to our TTP value 7-B 
nbTmOut .equ nbTTP+1 ; temp save for timer 7-B 
nbRtrys .equ nbTmOut+1 ; " " “retry count 7-B 


ORI IRR GR IO III III IO IOI CRO ICI IO IOI ICICI ITO IORI ICR ROR ICR ITO IO RR HK 


** Tx areas. Note that xP/xC are arguments to txFrame routines. 
** As such, they may change as the result of a received packet (to send the 
>* CTS); hence, the txPacket routines must assure that they are reset before 


7* sending the RTS and/or DATA frames. 


CORK IR RR IOI RR RII OT IIIT TORR T OIC I IIR IOI IIR TOR RIK RR TOR ITH IK RIOR RIK ARK IR RIK IK 


xP .equ ODO 7; Tx pointer 

xC 8 6.equ OD2 7; 06" counter 

xChist .equ op4 Collision history 
xCtrys .equ OD5 “ attempts 
xDhist .equ OD6 Defer history 
xDtrys .equ OD7 " attempts 


Global mask 
Local mask 
<>0 if broadcast packet 
xDelay .equ ODD current delay value (100 usec units) 
xSeed equ ODE current random value 
FILE: PCDEFS.a65 PCcard - firmware for IBM-PC AppleTalk 


xGmask .equ OD8 
xLmask equ OD9 
xfBeast .equ ODB 


ST eT ny ee eT et 


BRIO R TR IR TO FOR RR AIK IR TOR IO ITO TOK TOR IO RK RO OK RRR OR RIOR KO IR KK RK ROK KK RK KK 


7* most of OOEO line is used for ATP related stuff.. 
RIOR RRR I TTR RIOR IKK TRIO RR TOK IO TORII ROR TOR FOR TR RR RK IR TOR KIKI RR RK KE 


atP .equ OEO 7; ptr to ATP buffer 

atPh -equ OR2 lt aes) ee “(header area) 

atc .equ OE4 7 count of data buffer 

istTTP .equ OE8 7; last allocated TT entry 

istATP .equ OE9 ; last modified entry (non-ATPtask) 
atTXQ -equ OEC 7 TX Queue 


atTXQhd .equ atTXQ 

atTXQtl .equ atTXQhdt1 

xmtATP .equ OEE ; TT being XMT'd 

DORR OIRO OR TORII III IO IRI OK TOR TOR RRR RRR RR RK IK RR AK RRR RAK RR KK RK KK 
;* all of OOFO line is used for DBG related stuff.. 


PRI IR RR RR RR RR KR IR I IKK IK IK OK KK KK IK ERK IK RIK RR RIK RK RIA RRA RRR RHR KK RK 
NMIflg .equ OFF Flag for NMI debounce 


me 


PCreg .equ OFC 7 saved PC 

Preg -equ OFB 7 processor status 
Nbit .equ 10000000T 7 Negative bit 
Vbit .equ 01000000T 7 oVerflow 
Bbit .equ 00010000T ; Break (instead of IRQ) 
Dbit .equ 00001000T ; Decimal mode 
Ibit .equ 00000100T ; IRQ disable 
abit .equ 00000010T 7 Zero 

Chit .equ oooooo0iT 7; Carry 

Areg .equ OFA 

Yreg .equ OFr9 

Xreg -equ Ors 


SPreg .equ OF7 


tStkP .equ OF6 save for Talk's SP 


ca 
tent -equ OFr4 7 count for Talk's use 
tAdr .equ OF2 ; address " al " 
tFune .equ OF1 ; function code 
tCKS -equ OFO 7 CheckSum 


7** ASCII byte defns 
aSTXx .equ 002 
aETX .equ 003 
aACK .equ 006 
aNAK equ 015 


Start of TexXt 

End of TeXt 
ACKnowledge 

Negative AcKnowledge 


7s Na Se Se 


FORO OR IOI GIO OIC FOR IOI IOI IOI IOI IOI IIRC T ORRICK ICR RIOR FOCI FOR RIK RK RK 


;* Transaction Table definitions. A transaction table entry is made 
;* for each SndReq and/or SndRsp request by the Host. The REQ task creates 


* the table entry; the ATP task maintains is, including its destruction 
* when it has served its useful life. Note that all Transaction Table 

* entries are have a "tt" prefix to distinguish them from the “at" prefix 
* of definitions of the ATP protocol offsets. 

FILE: PCDEFS.a65 PCcard - firmware for IBM-PC AppleTalk 


3* The definitions here are arranged so that all accesses to a tt entry 
7* can be made via "ttXXX,x", where X-reg has table locn. In order to handle 
3;* table boundary, TTbase is set to point into page such that adding ttSize 
7* to X will result in $00 when the last entry adjusted; TTbase will then 

3* be loaded into X to handle the overflow. 
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Page 


0000] '* The table is split between two pages (0200/0300). The first page 
0000| 7* contains the ATP protocol data, the second contains our internally used 
0000] 7* information. 

0000 | SOOO GIO ITOIGIOI OIG III II ICI IOIOI ICICI GIGI GIGI ICICI IOI IIIT IA IH 
0000| OOO0D TTSIZE .equ ; size of each entry 

0000| 0013 TTNBR .equ 0100/TTSIZE 3 number that fit in a page 

0000| OOF7 (TSIZET .equ TTNBR*TTSIZE » total size of table 

0000| 0200 TTPAGE .equ 00200 3; the page in which TTtbl is located 
0000 | 

0000] 0209 CTBASE .equ TTPAGE+O1LOO-TTSIZET ; start of table 

0000| 0300 RQPAGE .equ TTPAGE+0100 ? RQdata 

0000| 0309 RQBASE .equ TTBASE+0100 7 “shadow" page for lengths 

0000| 

0000| 0200 ttState .equ TTPAGE 7 current state 

0000| 0010 SENDREQ .equ 010 7 new SendRequest 

0O00| 0011 SENDREQG .equ SENDREQt1 3; SendRequest Q'd (on atTXQ) 

00goo| 0012 SENDREQx .equ SENDREQqtl : - Tx'd 

0000| 0013 SENDREQw .equ SENDREQx+1 7 “ waiting for response(s) 
0000| 0014 SENDREQa .equ SENDREQwt1 ; " abort requested 

0000| 0015 SENDREQz -equ SENDREQatl ; “ Abort complete 

0000 | 

0000| 0020 SENDRSP .equ 020 7; new SendResponse 

0000| 0021 SENDRSPq .equ SENDRSP+1 ; SendResponse Q'd (on atTXQ) 

0000| 0022 SENDRSPXx -equ SENDRSPqt1 ; " Tx'd 

0000| 0023 SENDRSPw -equ SENDRSPx+1 ? a waiting for release (XO) 
Qo000| 0024 SENDRSPa .equ SENDRSPwt+1 : * abort requested 

0000| 0025 SENDRSPz .equ SENDRSPat+1 7 . Abort complete 

0000] 0026 SENDRSPr -equ SENDRSPzt1 7 TRel Rev'd while Q'd 

0000{ 0027 SENDRSPs -equ SENDRSPrt+1 : “processing after Tx of TResp 
0000; 0028 SENDRSPn .equ SENDRSPst1 j; new TReq Rev'd 7~Bl1 
0000| 

0000 | 

0000| 0030 SENDREL .equ 030 ; send new TRel packet (for XO) 

0000! 0031 SENDRELG .equ SENDRELt1 7 TRel Q'd 

0000| 0032 SENDRELz .equ SENDRELqt1 ; "  Tx'd, SENDREQ done 

0000| 0033 SENDRELr .equ SENDRELz+1 7; temp state for Q'd SENDREQ 

0000| 0034 SENDRELX «equ SENDRELr+1 : TRel after Q'd SENDREQ 

0000| 

0000] bes the following is added to ATP, even though it supports NBP ;-B 
0000| 0040 SENDNBP -equ 040 ; send new DDP (w/RETRY) 7-B 

0000| 0041 SENDNBPq .equ SENDNBP+1 7 DDP Q'td 7-5 
ooo00| 0042 SENDNBPX .equ SENDNBPq+1 7 “  Tx'd, timeout 7—-B 
0000| 0043 SENDNBPw .equ SENDNBPx+1 3; timing out 7-B 

oooo| 0044 SENDNBPa .equ SENDNBPwt+i 7 SENDNBP abort 7~-B 

Ooo00| 0045 SENDNBPz equ SENDNBPatl ; abort done 7-B 

OOOO} 0046 SENDNBPn .equ SENDNBPz+1 ; new request, temp 7-B 

0000} 

oooo{; 0201 ttRID .equ ttStatet+l1 ; RID of initial host REQuest 

0000} 0202 ttLink .equ ttRID+1 ; link field for Tx'‘'ing 

0000! 0203 ttTmr .equ ttLink+l ; dynamic timer 
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0000| 0203 ttBfr .equ ttTmr ; holds desired buffer # during TXQ 
0000 | 

0000| ¢** timeout control values 

0000| 0204 ttFLGs .equ ttTmr+1 7; Flags (initial CCI); format as atCclI 
0000| 0204 ttBufN .equ ttFLGs : for SNDNBP, holds BufN ;-B 

0000] 

0000| 0205 ttTmout .equ ttFLGS+1 ; Retry timer (SendRequest) 

0000| 0205 ttRsMap .equ ttTmout ; original SendResponse map 

Q0000| 0206 ttRtrys .equ ttTmoutt+1 ; Retry count (SendRequest) 

0000| 0206 ttTxMap .equ ttRtrys ; current SendResponse map 

0000| 0207 ttDing .equ ttRtrystl ; length of sendREQ/RSP data 

0000| 

0000| 7** info specifying DDP data 

0000! 0300 ttDnet .equ RQPAGE ; Dest Network # (2 bytes) 

0000! 0302 ttDnode .equ ttDnet+2 : " node # 

0000| 0303 ttDskt .equ ttDnodetl : "socket # 

0000| 0304 ttSskt .equ ttDskt+1 7 Source socket# (from req) 

0000} 

0000}| 7** info belonging to the actual ATP header 

0000| 0305 ttccl -equ ttSsktt1 7; request's CCI field 

0000| 0306 ttBtMap .equ ttccI+1 : BL BitMap 

0000! 0307 ttTID .equ ttBtMapt1 ? " Transaction ID (2 bytes) 

0000| 0309 ttUser .equ ttTID+2 H « User Data (4 bytes) 

Q000| 0306 ttSqNbr .equ ttBtMap 7 response's Sequence Number 

0000] 

0000| O30D ttNext .equ ttUsert+4 ; check on TTSIZE 

0000| 

0000 | Lf ttNext-RQPAGE <> TTSIZE 

0000} .endc 

0000} 

0000} ORR IRR IRR RRR IRR RIT IORI TTI FORK RRR R IRR AR RIOR RK RK IK RRR RIKER KK IK 
0000} ;* definition of areas within stack area of RAM (0100 page). Stacks 
0000 | 7* are 0180..1FF. 

0000 | JOR III ICICI CII III TIO ITOK A TOR II IK KIC 


0000 | 
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cooo| 0100 STStbl .equ 0100 j actually uses ist 040 bytes of 0100 page 
oooo;| 0140 SKTtbl .equ 0140 7; DDP socket registry table (32 x 8 bits) 
oo0d| 0160 LAPtbl .equ 0160 ; LAP protocol registry table (16 x 8 bits) 
0000| 
0000| 0180 STKbase .equ 0180 ; base of Task stack area 
0000] 0020 STKsize .equ 020 3; size of each stack 
0000 
et DORR GR RIOR IR FOI I TO IO IO IOI IOI III OI OI IOI IO III IRR IRR RIOR IK IK 
0000 | 7** end of PCDEFS 
0000 | 
0000} 
0000 | 
2 blocks for procedure code 512 words left 
>>>>PAGE - 11 PCCARD FILE: PCcard - firmware for IBM-PC AppleTalk 
0000] ~proc PCcard, 0 
Current memory available: 512 
0000| 
0000] -if fROM 
0000} .org OE000 ; origin for ROM based code 
EOOO|[ ».else 
E000 | .endc 
E000} 
E000 | einclude PCINIT ; Initialization code 
E000| peak PCINIT, initialization code 
E000 | 
EOOO{| O2E0 TaskP -word $+2 7; dumb, f*cking assembler 
EOO2|[ **** -word CMDtask-1 ; idnitail PC's for our tasks 
EOQO4| **** -word XMTtask-1 
EOQO6| **** «word RCVtask-1 
EQO8| **** -word ATPtask-1 
EOOA| 
EOOA| EOOA LTb1 ,equ $ ; table base 
EQOA| 
EQOA] 0000 bTbl .equ $-iTbl 7 =©scc table for initialization 
EQOA] O08 40 .byte 9., 040 ? reset again 
EOOC| 04 20 .byte 4., 020 3; SDLC mode 
EOOE| O05 El «byte 5., OF1 : no RTS, disables driver, enable DMA stuff 
E010| OA EO -byte 10., OEO 3; FMO, CRC preset-1, FLAG idle, FLAG on EOM 
E012{ 06 OO .byte 6., 000 : our address 
E014| 07 7E .byte 7., O7E 7; SDLC FLAG 
E016| OB FO .byte 11., OFO : XTAL, Rx via DPLL, Tx via BRG 
E018] Oc 06 «byte 12., 6. 7; 16x (8-2) 
EO1A| OD OO .byte 13., 0. 
EO1C}] OE cO »byte 14., OCO ; set FM mode 
EOIE| OE 21 »byte 14., 021 3; start DPLL, enable BRG 
E020| OF 08 ebyte 15., DCD - DCD (PCRQ1) 
£022] 10 10 .byte 010,010 7 reset Ext int 
E024] 01 09 -byte 1., 009 : Rx on ist char, EXT ints 
E026[ 02 00 .byte 2., 000 7; O IV 
E028| 30 -byte 030 3; reset Errors 
E029| 38 -byte 038 ; reset IUS 
EO2A| 
E02A| 0020 rxRst -equ $-iTbl 7 reset Rx sequence 
EO2A| 03 CO .byte 3., OCO 7; reset Rx 
E02c| 0022 rxEnb .equ $-1Tbl ; re-enable Rx 
EO2Cc| 03 DD -byte 3., ODD 3 start Rx 
EQ2E| 20 -byte 020 3 enable Rx 
EO2F| 0003 ryxEnbL .equ $-iTbl-rxEnb 
EQ2F} 0005 
EQ2F | 
E02F| 09 08 -byte 9., 008 7; MIE 
E031| 0027 bTbLL .equ $-1Tbl-bTbl 
E031] 
E031} 0027 aTbl -equ $-iTbl 7 table for A-port 
E031] 09 80 -byte 9., 080 7 reset 
£033| 03 00 byte 3., 000 7 make sure of auto-enable mode 
EQ35| 04 44 -byte 4., 044 7 set l-stop, ASYNC, x16 clock 
E037| OB 10 byte 11., 010 7; Tx via BRG 
£039| OC 96 byte 12., 11158. % 0100 ; gives 1 sec / (10-bit) byte 
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EQ3B| OD 2B »byte 13., 11158. / 0100 

EO3D{ OE 03 -byte 14., 003 3; enable BRG, from PCLK 
EQ3F| OF 20 »byte 15.., -CiS 7; CTS (PCRQO) 

E041| 01 03 «byte 1., 003 7; Tx,Ext ints enabled 

E043| 10 10 -byte 010,010 ; reset Ext/Status 

E045| 09 08 .byte 9., 008 7; MIE 

E047} O05 68 .byte 5., 068 3; no DTR (IRQ to PC), enable Tx (for timing) 
E049{ O08 OO .byte 8., 000 ; first xmt byte 

EO4B{ OO1A aTblL .equ $-1Tbl-aTbl 

EOQ4B| 

EO4B| BITS 7** bits numbered 0..7, MSB..LSB 
EO4B| 80 40 20 10 -byte 080, 040, 020, 010 

EO4F[{ 08 04 O02 O1 .byte 008, 004, 002, O01 


E053| 
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E053 | 

E053{ 00 01 03 07 
E057| OF 1F 3F 7F 
EOSB| FF 
EOQ5C} 

E05C| 01 02 04 08 
E060| 10 20 40 80 
E064 | 

E064 | 

E064| AD 0040 
E067| BD OAEO 
EO6A|] 8D 0040 
EO6D| E8 
EOGE| 88 
EO6F{ DOF6 
E071} 60 
E072 | 

E072 | 

E072 | 

E072{ AD 0240 
E075| BD OAEO 
E078| 8D 0240 
EO7B| E8 
EO7C{ 88 
EO7D| DOFG 
EO7F| 60 
E080 | 

E080/| 

E080 | 

E080 | 

E080 | 

E080 | 

E080| 

E080| 08 
E081{ 78 
E082{ 8D O0CO 
EO85| OA 
E086| 8D O00CO 
E089| OA 
EO8A| 8D 0O0CO 
EO8D{ OA 
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EQ8E| 8D O00CO 
E091] OA 
E092] 28 
E093{ 60 
E094 | 

E094 | 

E094 | 

E094 | 

E094| 78 
E095] D8 
E096] 

E096{ A2 FF 
E098| 9A 
E099 | 

E099 | 

E099] AQ OF 
EO9B{ 20 80E0 
EO9E} 20 80E0 
EOA1 | 

EOA1 | 

EQA1| A9 1F 
EOA3| 85 Al 
EOA5| AQ 00 
EOA7| 85 AO 
EOA9| A8 
EQAA! 91 AO 
EOAC| C8 
EOAD| DOFB 
EOAF| C6 Al 
EOB1| 10F7 
EOB3 | 

EOB3 | 

EQOBS3 | 

EOB3 | 

EO0B3 | 

EOB3 | 

EOB3 | 

EOB3{ A2 00 
EOB5| AO 27 
EOB7| 20 64E0 
EOBA | 

EOBA| A2 27 
EOBC| AO 1A 
EOBE| 20 72E0 
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atMaps 7** # of buffers -> BtMap 
.byte 000, 001, 003, 007 
-byte OOF, O1F, O3F, O7F 
»byte OFF 

atBits 3** buffer # to BtMap 
-byte 001, 002, 004, 008 
.byte 010, 020, 040, 080 


xSCCB 7* issue sequence of control to B-port 
lda sccCtrl 3; force sync w/ ctrl reg 
$1 Ilda iTbl,x 
sta secCtrl 
inx 
dey 
bne $1 
rts 


xSCCA 7* issue sequence of control to A-port 


lda sccCtrlA ; force syne w/ ctrl reg 
$1 Ilda iTbl,x 

sta sccCtrlA 

inx 

dey 

bne $1 

rts 


BIO III IIR RIO RI ROR ROR I IORI ORR RIOR FOR TORK IR IK RK IR TR KK RK KKK KEKE RRR EK 


v 
»* setSTAT, routine to set IBM's readable status reg. Note that this 
#* will auto-magically generate an interrupt request on PC. However, the 
** PC code must ensure that sufficient time has gone by before it reads the 
i* register, since we shift data in serially. 
FORO IO III II III ICICI OIG IGIGIIOIDIO ICICI CITI G OO III ICICI III ACA II RK 
setSTAT php 3; save current status (for I-bit) 
sel 3; disable ints while dinking 
sta STATreg 7; the real thing! 
aslA 
sta STATreg 
aslA 
sta STATreg 
asl A 
FILE: PCINIT.a65 PCcard - firmware for IBM-PC AppleTalk 


sta STATreg 


asl aA ; in case of back-to-back calls 
plp ; restore I-bit 
rts : and, return to caller 


JUROR III IO GIG III CICIOIGIGI ICI CIIOIOI III III ICRI GIR ITO TIO RTI RIK 


3* Initialization section. 
OIG IR ROTO III ROCIO ICICI OIOI IOI OR ICT RRC FORGO TOIT A TORR 


xXRESET sei y inhibit ints!! 


cld ; make sure of state 
ldx #0FF 
txs 7 stack up hi 
7** make sure of initial value of STATE reg 
lda #00F 
jsr setSTAT 7; Ist one guarantees clear 
jsr setSTAT ; this one sets "initializing" state 


7** clear RAM, for debugging 
lda #01F 7 all of RAM 
sta rPt+l 
lda #0 
sta rP 
tay 

$0 sta @rP,y 
iny 
bne $0 
dec rPtl 
bpl $0 


-if 1-fROM 7 for debugging only 
.endc 


ORI II RII IIRC IOI ICICI III IRR ICRI IIIT CITRIC FIC RII KI IK 


7* Initialize scc. 

DORI IIIT IGIGIGITIOIIIOIGIOI SI OIOI III IIIT CICICIICICIGIGI IO IOI ICICI IKE 
ldx #bTbl 
ldy #bTb1L 
jsr xSCCB 


ldx #aTbl ; enable DTR, and setup ints 
ldy #aTblL 
jsr xSCCA 


Page 9 
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E0C1| 

EOC1 | -Lf 1-fROM ; for debugging $2000 only 

E0C1 | .endc 

E0C1 | 

E0C1| FOI I III III IOI ICICI I ICICI I IIGI IC IOC ICICI ITO CITC II KK I IK 
E0C1 | 7* Initialize the free frame queve. Note that the buffers are kept 

E0C1 | * track of by a number. We only have room for 11 full buffers, so indices 
E0C1| z* vange from 2..12. 

E0C1 | 

E0C1 | FOI III IOI III IGG I CIGI OI IGICIOICICI IIS III OGIO ICI ICR IAT OO ICTR II TORK IK 
EQC1{ initFreQ 
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E0C1] A9 OC lda #12. ; last number 

E0c3| 85 81 sta freeQtl 

EOC5| AX 02 lda #2. 7 setup queue header 

EOC7| 85 80 sta freeQhd 

E0C9| AA $1 tax 

EQCA| 1A ina 

EOCB| 95 80 sta freeQ,x 3; set next 

BOCD| C5 81 emp freeQtl 7; last one? 

EOCF| DOFS8 bne $1 

EOD1 | : tax 3 clear last one's next 

EOD1 | 7 stz freeQ,x 

EOD1 | 

EOD1| A9 09 lda #TTBASE % 0100 ; initialize ATP 

EOD3| 85 E8 sta lstTTP 

EQDS| 

EQD5| JOR III III III III IOI GIGI CI ICIGICICI ICICI III ICI ICI ICI TOOT III TOR IIR 
EOD5} ;* dnitialize the receive stuff. Pull first buffer off of freeQ, setup 
EOD5 | 3* rexP, rP and rc. 

EODS5 | JOR III IO IO III IOI II OIOI IOI ICICI ICR OR AOR ROR ROR OK FORK TORK FOR RIK IR IIR K ERK 
EOD5| A2 A4 ldx #rxP ; pt to where we need address 

EOD7| 20 **** jsr getFree 7 and, get one 

EODA| 20 **** jsr setRXP 

EODD | 

EODD | URI OI TRI III TORII III I IOI IOC II IOI III III IORI TCR ITO RIOR IOI I FOR OK ICTR TOK IIR I 
EODD | y* initialize the Task stuff. Note that we assume that zero is the 

EODD | ;* default value for any values not explicitly set here; the above clear 
EODD | 7* loop should guarantee that. 

EODD | FOI IRI I IO IG III ICICI ICIS ICICI ICICI IG TOI CR TOR I ITC IK I A 
EODD | initTasks 

EODD[| A9 O01 lda #1 3; semaphore's initial count 

EODF } 

EODF{| 85 74 sta DMAlock+sCnt z for mutual exclusion 

EOE1| 85 78 sta XMTlock+sCnt 

EOE3| 85 7¢ sta ATPlock+sCnt 

EOES} : stz RCVsemat+sCnt 7 RCVsema is a counter 

EOES{ - stz XMTsematsCnt : as is, XMTsema 


EOES | 
EOES5 | ORR II RIG ICRI ITO ICT ACTOR IIIT RRO IORI OR ICICI TOR ITOK IRR RIOR TOK ARITA TK KAORI 


EOES| :* setup initial entry params for our 4 tasks. 

EOES5 | JOR IO II II ICICI ICICI III ICICI III OI I TORI ICI II IK A IK IR IA RRR KAR IRR RAH 
EOE5| AD OOEO lda TaskP ; ptr to starting spot 

EQOE8| 85 02 sta t2 

EOEA| AD O1EO lda TaskP+tl 

EOED| 85 03 sta t2+l 

EOEF( AQ 80 lda #STKbase % 0100 7; starting SP (for 4 tasks) 
EOF1{ AO 40 lady #CMDtcb 

EOF3| 

EOF3{ 85 00 $1 sta tO 7 save for looping 

EOF5| 69 1F adc #STKsize-1 ; end of stack area 

EOF7| AA tax 7; set TopofStack 

EOF8| 9A txs 

EOF9| AG 62 ldx TaskQtl chain old last 

EOFB| 84 62 sty TaskQtl ours is always new last 

EOFD| DO** bne $2 ; skip if non-empty TaskQ 

EOFF | 
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7a Se 


EOFF| 84 61 sty TaskQhd ; only for first time! 

E101| 80** bra $3 

E103 | 

EOFD* 04 

E103| 94 02 i $2 sty tNext,x ; add ours as last's next 

E101* 02 

E105| B2 02 $3 lda @t2 ; plug stack (as if we did ‘jsr semaP') 
E107| E6 02 inc t2 

E109| AA tax ; reverse order 

E10A| B2 02 lda @t2 
E10C| E6 02 ine t2 
E10E|] 48 pha 
E10F| DA phx 
E110| 

£110] BA tsx 
E111] 96 03 stx tSP,y ; keep track of stack 


“Ss 
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E113] 

£113/ 18 
E114| 98 
E115| 69 08 
E117] A8 
£118| A5 00 
E11A| 

E11A| 69 20 
E11¢{ DODS 
E11E| 

E11E| A9 80 
E120| 85 11 
E122! 20 80E0 
E£125| A9 SA 
E127] 85 1E 
E£129| 

E129| AQ O1 
E12B| 85 FF 
E12D | 

E1l2D| 4c **** 
E130| 

E130] 

E130] 

E130| 

E130| 

E130! AQ Bl 
E132{ 20 **** 
E135| 20 **** 
E138] A9 OO 
E13A{ 4C **** 
E13D | 

E13D| 

E1L3D| 

E13D] 

E13D] 

E13D{ A929 BO 
E13F] 20 **** 
E142} 20 **** 
E145| A9 00 
>>>>PAGE - 16 PCCARD 
E147| 

E147[ 4¢ ***x* 
E14A| 

E14Aj 

E14A] 

E14A} 

E14A} 

E140* 4AB1 
E133* 4AE1 
E14A] 

E14A| 48 
E14B[| AD 0080 
E1l4E| 85 18 
E150| AD 0080 
E153| 85 19 
E155| AD 0080 
E158| 85 1A 
E15A| AD 0080 
E1L5D| 85 1B 
ELSF | 

E15F{ 68 
E160{ 20 **** 
E163] 

E163| 60 
E164} 

E164 | 

E164 | 

E164 | 

£164 | 

E164 | 

£164| 

E164 | 

E164] 

E164} 

E164| 

E164 | 

E164 | 

E164 | 

E164 | 

E164| 

E164 | 

E164| 08 
E165| 78 
E166| A6 60 
E168| 34 00 
E16A| DO** 


cle 7; advance Task ptr 

tya 

adc #tSize 

tay 

lda tO 7 advance SP 

ade #STKsize 

bne $1 ;~ and, loop until done 
$9 Ilda #DMAidle 7 show idle 

sta pcIdle 

jsr setSTAT 

lda #90, ; start RITMP timer 


sta RIMPtmr 


lda #001 ; initialize NMIflag 
sta NMIflg + for debounce 


jmp Dispatch 


FOI III IIIS GIOIGIOIGICICIGIGIOIGICICISIOIOIIICIGIGIG ICICI ICCC TOIT III ITOK II 


;* xPC2US, diagnostic support. Lets host write stuff to us. 
FOI III ICICI III ICICIGIOII ICI IIGIOI III III GIGI ICICI ITO III ITO II ITCH 
xPC2US *** entry from command task 

lda #REQdatatl set to do pre-fetch 

jsr setDPDC set ptrs/count, wait for host 


~s Se ae 8 


jsr rdDMA ok, copy it 
lda #0 7; ~and, report success 
jmp CMDdone 


FOR III III III III TOI III ITO I III I ICR IORI R RR RFR RRR TOR IRE FOR RR OK KE 


y* xUS2PC, diagnostic support. Lets host read stuff from us. 
FORGO IRR ROR TOR RRR I FOR GI ORO TOIO CIC ROTOR CIC TOR I TOI RCI CR ICR TORIC IORI TORII FOR RIK KR K RK 
xUS2PC ;** entry from command task 
lida #REQdata no pre-fetch 
jsr setDPDC set ptrs/count, wait for host 
jsr wrDMA 7 ok, copy it 
lda #0 7; and, report success 
FILE: PCINIT.a65 PCcard - firmware for IBM-PC AppleTalk 


se 3 8 


jmp CMDdone 


PRESS CCCCCCCCCC£CC£C£CACC CASS SAPS CSC SCS CS CPPS SSS SSP SCEPC SS SESE CSAS APES ee ees 


' 
7* setDPDC, common code for xPC2US/xUS2PC to read DMA specs, wait for 
' 


;* user to show its ready. 


ORR III II TOOT IOC ICICI IOI IORI ITO CR TOR ITOK I TOR ATOR I ROR KIKI RR IH 


setDPDC 7** entry from xPC2US/xUS2PC 
pha ; Save waitDMA code 
lda DMAreg ; setup DMA transfer. (4 bytes) 
sta dP 
lda DMAreg 
sta dP+1 
lda DMAreg 
sta dc 
lda DMAreg 
sta dc+1 
pla tell host we are ready 
jsr waitDMA 


_e 


rts ; and, let caller finish up 


7** end of PCINIT. 


-include PCEXEC ; Multi-tasking kernel 
;* PCEXEC, executive of the PC AppleBus card. 
DORI III III III CIO III IC ICICI CII ICICI TOR I ICICI ITI IK RIT I A IIR RRA K RICK HK 
;* These routines comprise a small "multi-tasking" executive which 
7* allows multiple commands to be in progress (from the PC) in a somewhat 
* controlled fashion. The resources which require exclusive access (the 


‘* DMA channel and the Transmitter) are controlled via semaphores. 


DORI III RII III UII IOC IOI IO ITO ICRC FORK IIR ICTR FORA TOR TOTO I OK I TK IIR 


. 
¢ 
. 
td 


POR RI RR IRIIK FORIIOROK FOR IR IOI ITOK III IK TOK IK IK IRR KR IKK IK AK RRR INK IKI KIRA KK 


7* Wait, wait for a specified signal (A-reg) to occur. If the flag is 


7* currently set in our tcb, then treat as a nop. 
ORR I FRI I RIG RORIIICIOCIIOIOR IOCIROOIFOIR ICRROR ACR F ORG TORR ROTO ITOK RO IORI ITOK AOR IIR IOk 


Wait php 7 save I 
sel ;)=6C and, inhibit 
ldx theTask 7 our teb 


bit tFlags,x 7; any matching 
bne $3 : yes, it already happened, don't wait 
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E1l6c] 95 O01 sta tWaits,x ; nope, show the ones we're interested in 
EL6E| 28 plp 7 restore I 

ELGF| 4c **** jmp yieldi 7 =and, stop until we get it 

E172 | 

E16A* 06 

E172| 28 $9 plp 7 just return to caller 

E173] 

E173| 60 rts 

E174 | 
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E174{ BOI III ISI CIOIOI III II GIGI IIGIGICIG ICIS GICIGIGIGIIGICIGIOIIIIGIGII ICI CIGICI ICI TOI CI ICI III RAI IIR 
E174| :* Signal, send a signal to a task; if that task is indeed waiting for 
£174 | «#* the desired flag, make it ready. X has tcb address, A has signal bits. 
E174 | BOIS OIG ICICI IG IGG IIGIOIGI IG IOIDIOIGICICIDIOIGI ICO OI IGG III OI ICO III II IOI RIK 
E174| 08 Signal php 7 save I 

E175| 78 sel 7 and, inhibit 

E176] 34 01 bit tWaits,x ; is it waiting for this? 

E178| FO** beq $9 ; no, merely post 

E17A| 34 00 bit tFlags,x 7 else, is it alREADY? 

E17c| 30** bmi $9 ; yeah, just post 

E17E| 

E1L7E| ;** task is not running, and a flag matches, make it ready and queue it. 
EL7E| 48 pha ; save flags for ORring 

EL7VF| 8A txa 7 enqueve it 

E180| A6 62 ldx TaskQtl 

E182| 85 62 sta TaskQtl 

E184| DO** bne $1 

E186!] 85 61 sta TaskQhd ; if queue 1s empty, make it head also 

E188| 80** bra $2 

E184* 04 

EL8A[| 95 02 $1 sta tNext,x 7; else, ours is next of last's 

E188* 02 

E18c| AA $2 tax 

E18D| 74 02 stz tNext,x ; make sure of our next 

E18F| 68 pla ; restore flags 

E190| 09 80 ora #tReady 7; show alREADY 

E192 | 

E17c* 14 

E178* 18 

E192| 15 00 $9 ora tFlags,x 7 accumulate flags 

E194| 95 00 sta tFlags,x 

E196| 28 pip 7 restore I 

E197] 60 rts ; and, leave 

E198] 

E198 | ORI TRI RR IR RRR IIR I I I TOK I I III KI IK IR IR KIRK RIK IKK IKK TK IKK RIK EIR KR K 
E198 | :* Semaphore management routines. "Classical" semaphores, nothing very 
E198 | 

E198| :* fancy. Note that X contains the address of the semaphore (obviously in 
£198| y;* zero-page). All regs destoryed. 

E198} FOR R OIRO IIRIIOI IT OIRO ITOK TOO TOOK IORI T IK ITOK IRR I TOOK I IK IKK RRR AOKI RR IKK IKK 
E198) 

E198} semaV 7** the classical V operation. 

E198| 08 php 7 save current I 

E199} 78 sei ; force atomicity 

B19A| 74 03 stz sOwn,x ; show no owner now 

E19c}] F6é 00 ine sCnt,x 7 up the count 

E19E| 30** bmi $1 ; if <=0, schedule one 

E1A0[ DO** bne semaXx 7 common exit Lf >0 

E1A2 | 

ELOE* 02 

ELA2| B4 01 $1 ldy sQhd,x ; unlink lst on queue 

E1A4| 94 03 sty sOwn,x ; Andicate our new owner 

E1A6| B9 02 00 lda tNext,y ; its nexts 

E1A9| 95 01 sta sQhd,x ; is new head 

ELAB| DO** bne $2 
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E1AD| 95 02 sta sQtl,x ; if no more, make Q empty 
ELAF | 

E1AB* 02 

E1AF| 28 $2 plp 7 we can allow ints for a while 
E1BO| 98 tya 7; copy dequeued task to param reg 
E1B1| 08 php 

E1B2| 78 sei ; OK, prevent again 

E1B3| 

E1B3 | :** eng the task to taskQ 

E1B3| A6 62 ldx TaskQtl 7 append to end 

E1B5| FO** beq $3 ; skip if currently empty 

E1B7| 95 02 sta tNext,x 3; else, add as next of last 
E1B9| 80** bra $4 

E1B5* 04 

ELBB[| 85 61 $3 sta TaskQhd ; if empty, make it first 
E1B9* 02 

E1BD{ 85 62 $4 sta Taskotl : as well as last 


E1BF{ AA tax s make sure of “end" 


7/25/91 10:28 AM pecardrom.1st Page 13 


E1coO| 74 02 stz tNext,x 

E1c2| A9 80 lda #tREADY 7 show ready 

E1c4| 15 00 ora tFlags,x 

E1lcé6| 95 00 sta tFlags,x 

E1c8{ 74 O01 

E1CA| 

ELAO* 28 

E1LCA| 28 semaX plp 7; allow ints (maybe), 

E1LCB| 60 rts ¢ oon way out 

E1CC| 

Bicc| semaP 3** classical P operation. 

Elcc| 08 php 

ElcD| 78 sel ; enforce atomicity 

E1CE| D6 00 dec sCnt,x 7; down the count 

E1D0| 30** bmi $0 

E1D2| AS 60 lda theTask ; show who owns it 

E1D4{ 95 03 sta sOwn,x 

E1D6{ 80F2 bra semaX 7 common exit if ok 

E1D8| 

ELDO* 06 

E1D8| A5 60 $0 Ilda theTask 7; ok, who are we? 

E1DA| B4 02 ldy sQtl,x + get current last 

Elpc| FO** beq $1 ; there is no one, skip linking 

E1DE| 

ELDE| 99 02 00 sta tNext,y ; add ours to last's next 

E1E1| 80** bra $2 7; merge 

E1E3| 

E1lpc* 05 

E1E3| 95 O1 $1 sta sQhd,x 7 if no one on, make ours first 

ELE1* 02 

E1E5| 95 02 $2 sta sQtl,x 7; =©always last 

ELE7| AA tax ; task's address 

E1E8| 74 02 stz tNext,x 3; make sure we're "last" 

E1EA| AQ O1 lda #sSEMA ; show waiting for semaphore 

ElEcC} 95 O1 sta tWaits,x 

E1LEE| 49 7F eor #07F 7; mask this one out 

E1FO{ 35 00 and tFlags,x 
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E1F2{ 95 00 sta tFlags,x 

E1F4| 

E1F4| 28 plp ; restore I-bit 

E1F5{ 80** bra ylelidl 7; and, give up CPU 

ELF7| 

ELF7| OIG III III ICICI IIRC ICIICI CII I OIDI ICICI IOI ICICI ICICI CI TOIT TOI AIO AIT 
ELF7| z* YIELD, the entry to voluntarily give up control. If theTask is not 
E1F7| ?* null, the task is requeved on to the end of the ready task queue, 
E1F?7| BORIC OI IR ICRI III I IOI I IR IR I RIOR IR IK RR IRR IKK ERR KER IK EKA 
ELF7| Yield 

ELF7| 78 sei zy inhibit while dinking 

E1F8| 

E1F8| A5 60 lda theTask 3; is one active? 

ELFA| FO** beq Dispatch 7; nope, simply schedule another 

ELFC| 

ELFC| 7** eng the task to taskQ 

E1FC| A6 62 ldx TaskQtl 7; append to end 

E1FE| FO** beq $1 ; skip if currently empty 

E200] 95 02 sta tNext,x 7; else, add as next of last 

E202| 80** bra $2 

E1FE* 04 

E204| 85 61 $1 sta TaskQhd ; if empty, make it first 

E202* 02 

E206| 85 62 $2 sta TaskQtl 7; as well as last 

E208| AA tax ; make sure of "end" 

E209| 74 02 stz tNext,x 

E20B| 

ELFS* 14 

E170* OBE2 

E20B| yieldl ;** common point to save state of current task 

E20B| A4 60 ldy theTask 7 Save our stack base 

E20D| BA tsx 7; save its stack ptr 

E20E| 96 03 stx tSP,y 

E210| 64 60 stz theTask 

E212| 

E212 | ORR III II ICICI ICI III IOI IOI ICICI TOR GICI OIF OCI TORI CIO I IORI TOK I FOR 
E212| ;* DISPATCH, the main “exec” loop. We wait until the taskQ has a task 
E212| 7;* to dispatch to. Note that interrupts (particularly, received packets 
E212 | ;* and/or Function requests from the PC) will place tasks onto the taskQ. 
E212| JOR I IRR IIOR I RRRIIIOIOO ICTCR ITOK ROTOR ROR RIOR KR FORK FORK KK RRR IK RRR IKK TORK ERK ERK 
E1LFA* 16 

E12E* 12E2 

E212| Dispatch 

E212{ 58 cli 3; this loop must! be interruptable 

E213| AQ 20 $1 Ilda #f£REQ 7 request loop flag 

E215}{ 14 10 trb pcFlags ; look for request from PC 

E217| FO** beq $2 


E219] 
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E219] 3** we have seen a request from PC host, issue a task, if any free 
E219| 

E219/[ A2 70 ldx #REQsema 

E21B| 20 98E1 jsr semaV ; inform CMDtask 

E215 | 

E217* 05 

E21E[ A4 61 $2 ldy TaskQhd 7 is there one? 
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E220| FOFL beq $1 7 nope, how dull.... 

E222 | 

E222| 78 sei ; while launching, don't mess.. 
E223| B9 02 00 lda tNext,y ; remove from queue 

E226| DO** bne $3 

E228| 85 62 sta TaskoQtl 3; if null, mark that fact 
E226* 02 

E22A| 85 61 $3 sta TaskQhd ; always, new head 

E22Cc| 

E22C| Bé 03 ldx tSP,y 3; ok, switch the stack 
E22E| 9A txs 

E22F| 84 60 sty theTask 7; show who's running 

E231| 58 ell user is interruptable 


. 
¢ 
. 
’ 


E232| 60 rts and, off to it 

E233| 

E233{ JOR RII ICI ICI III III III II ICICI IOI I III ICR ICICI ICICI ICR RO TIC RRO TO IORI KK 
E233} ;* getFree, obtain a buffer from freeQ, and place its converted address 
E233| 7* into area pointed to by X. 

E233 | JOR IIR IR RRR FOR OI ROKR RRR IOI TOR TOK IIR TOR KOR ROR ROK ROR ITOK FOR TOK RR IR RK RIK RIK HK RK 
EOD8* 33E2 

E233| 08 getFree php 7 save I-bit 

E234| 78 sel 7; then, inhibit 

E235| A4 80 ldy freeQhd ¢ get current header 

E237{ FO** beq $2 ; if empty, forget queue update 

E239| B9 80 00 lda freeQ,y 7 get its next 

E23c| DO** bne $1 ; skip if not last 

E23E| 85 81 sta freeQtl 7 else, update to show now empty 

E23c* 02 

E240| 85 80 $1 sta freeQhd ; always, new head 

E242 | 

E237* 09 

E242] 28 $2 plp 7 get original I-bit back 

E243| 98 tya 7; get buffer# 

E244 | 

E244 | cvtBufN ;** entry to convert buffer # to address (index in X) 

E244 | 

E244| 48 pha ; save buffer number 

E245| 95 01 sta 1,x 7; save upper part 

E247| OA aslaA 7 convert it 

E248| OA asl A 

E249{ 75 O1 adc 1,x 3 by *5 

E24B{ 95 O1 sta 1,x 

E24D{ A9 O00 lda #0 

E24F] 95 00 sta 0,x 7; setup for shift 

E251] 56 01 lsr 1,x 7 adjust it 

E253{ FO** beg $9 ; skip if empty value 

E255| 76 00 ror 0,x 

E257| D6 O01 dec 1,x 

E253* 04 

E259| 68 $9 pla ; restore buffer # 

E25A| 60 rts ; and, that's it... 

E25B| 

E25B| DORR FOI IOI III IOI ICICI IORI IIR TOIT OK RRR ROR FOR RIOR IOI IO RR RR RIO RK IK AIK 
E25B] ;* setRXP, common code to update working rP/rC from rxP. A-reg has 
E25B| +* been loaded (Z-bit s.b. correct) w/ new buffer number. 
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E25B| DOIG GIIGIIGI IOI IOI III ICI OIG ITI ICICI III OISIGICISICISIGIOIGISIGI ICI GIGI SICICIGI ICICI CI ICI I CI ICICI OI III OI III OI IIT IK 
EODB* 5BE2 

E25B| 08 setRXP php 7 save I-bit 

E25c| 78 sei 3; inhibit while updating rP/rc 

E25D{ 85 A6é sta rxBufN ; save where it is 

E25F| FO** beq $9 ; skip nonsense if none 

E261] AS A4 lda rxP ; setup working values 

E263! 85 AO sta rP 

E265{ A5 A5 lda rxP+i 

E267| 85 Al sta rPt+1 

E269| AQ OF lida #~<rxCsz % 0100> ; load w/ complement of size 

E26B| 85 A2 sta rc 

E26D| AQ FD lda #~<rxCsz / 0100> 

E26F| 85 A3 sta rCt1 

E25F* 10 

E271| 28 $9 plp 7 restore old 

E272{ 60 rts ;)06and, exit 

E273| 

£273 | FFU III TOI ICO FOR ROR TOI TOR IR I TOI TOI TRI ROR TOK RRR OR IK FOR IR RIOR RK IK IR RRR RR ICR RR IO EK 


E273] 7* putFree, place buffer back onto free buffer queue. Note that due to 
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E273] 

E273 | #* the way in which freeQ is organized, the 'sta freeQ,x' will set freeQhd 
E273 | :* for the case where the queue is currently empty. 

E273 | FORGO II III III III ICI IOIGIGICIGIGICI III ICICI CIGICIDICI ICICI ICCC TOO I ITI K 
E273| 08 putFree php 7 inihibit 

E274| 78 sel 

E275] AA tax ; clear next 

E276 74 80 stz freeQ,x 

E278| A6 81 ldx freeQtl 7 get current last 

E27A| 95 80 sta freeQ,x ; and, make ours its next. 

E27c| 85 81 sta freeQtl ; update ours as last 

E27E| 28 plp 

E27F| 60 rts ; and, we're done 

E280| 

E280 | JOGO IG OIG IOI GIGI IOI GIGIGIGIOI GIGI CIGIGIG CI ICISIOI GI ISIC III TOO TIO IK 
E280 | s* putXmit, add a buffer (in A) to the XMTtask queue; schedule XMTtask. 
E280| FOR III IOI OI ISIC IIIT CTO III I ITH IK 
E280] putXmit 7** called by Tx‘'ers 

£280| A6 25 ldx xmitoQtl 7 add to tail 

E282] 85 25 sta xmitQtl 

E284| DO** bne $1 7; if empty 

E286| 85 24 sta xmitQhd 7; our is only one 

E288| 80** bra $2 

E284* 04 

E28A| 95 80 $1 sta freeQ,x ; else, queue ours to last 

E288* 02 

E28C| AA $2 tax 

E28D| 74 80 stz freeQ,x ; and plug our next 

E28F | 

E28F | ;** enqueue to XMTtask, wait for completion 

E28F| A2 20 ldx #XMTsema ; let XMTtask know about it 

E291| 20 98E1 jsr semaV 

E294] 60 rts 

E295j 

E295 | UII III III III ICICI IOC ICISI CIC ICICI OIC I OI TOO IOI II IK AI IK 
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E295| 

E295| :* sccint, initial entry from any SCC interrupt source. Figure out 
E295 | ;* the cause and vector to the appropriate handler. ScCintxX is a secondary 
E295| ;* entry to re-examine interrupts for overlapping service requests. 
E295| JORG IG II III IIS IG ICICI GIGI CIGIGII ICICI ICI ICI III AITO RATIO AAR IR IORI IK 
E295| AQ 00 Atbe lda #000 3 start transmitter again 

E297| 8D 0340 sta sccDataA 

E29A| 

E29Aj 3** 1 second timer overflowed, we have a full second!! 
E29A| E6 1c inc TMRsecs 7; incr 16-bit counter 7 
E29c{ DO** bne $1 

E29E| E6 1D inc TMRsecstl 

E2A0| 

E29C* 02 

E2A0| cé 1E $1 dec RIMPtmr 7; check on RTMP invalidation 

E2A2| 10** bpl sccintx 

E2A4| 64 OB stz aBridge ; invaliditate the bridge # 

E2A6| AQ SA lda #90. y and, reload timer 

E2A8| 85 1E sta RTMPtmr 

E2AA| 80** bra SCCintxX 

E2AC | 

E2AC | ge sccint, the lst actual interrupt entry point. 

E2AC| 48 sccint pha 7 save reg to use 

E2AD | 

E2AD | pees sccintX, return point to look for more interrupts. 
E2AA* O1 

E2A2* 09 

E2AD} A9 03 sccintX lda #3. 3; vead RR3 (SCC's IP bits) 

E2AF({ 8D 0240 sta scecCtrlaA 

E2B2| AQ 3F lda #03F 

E2B4| 2D 0240 and sccCtrlaA 

E2B7{ DO** bne $1 7 some present, look at ‘em 

E2B9| 68 pla 7; else, leave 

E2BA| 40 rel 

E2BB} 

E2BB] pane at least 1 IP bit is present; find out which one. 
E2B7* 02 

E2BB|] 89 04 $1 bit #004 7; special case for RCA-B? 

E2BD| FO** beq $2 

E2BF| 4C **** jmp rxintr 7; ~=yes, handle elsewhere 

E2C2| 

E2C2 | 

E2BD* 03 

E2c2| 89 O1 $2 bit #001 7; EXT-B? 

E2c4| DO** bne Bext 

E2Cc6| 89 08 bit #008 7; EXT-A? 

E2C8| FOCB beq Atbe ; if not, must be TBE~A 

E2CA| 

E2CA| ;** assume EXT/STATUS if not TBE 

E2CA| AD 0240 Aext lda secCtrlaA : ok, load our status 


SE SS TTY 
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E2cD| 29 20 
E2cF| 05 10 
E2D1| 85 10 
E2D3{ AQ 10 
E2D5| 8D 0240 
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E2D8| 80D3 
E2DA| 

E2c4* 14 
E2DA| AD 0040 
E2DD[{ 29 08 
E2DF} 05 10 
E2E1| 85 10 
E2E3| AQ 10 
E2E5| 8D 0040 
E2E8{ 80¢c3 
E2EA | 

E2EA | 

E2EA| 

E2EA| 

E2EA| 

E2EA} 

E2EA| 

E2EA| 

E2EA| 

E2EA | 

E2EA| 

E2EA{ 

E2EA} 

E2EA| 

E2EA| 

E2EA | 

E2EA{ O1 
E2EB| 2FE1 
E2ED| 02 
E2EE| 3CE1 
E2FO| 04 
E2F1| **** 
E2F3| 05 
E2F4| KKK 
E2F6| 08 
E2F7|[ KKK 
E2F9| 11 
E2FA| **** 
E2FC| 12 
E2FD| **** 
E2FF[| 13 
E300| **** 
E302| 21 
E303 | kkeKK 
E305{ 22 
R306| **** 
E308| 23 
E309 | kkk 
E30B| 25 
E30¢ | 

BE30¢C | kKKK* 
E30E| 27 
E30F| **** 
E311| 2F 
E312| **** 
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E314] 31 
E315] KKKK 
E317) 32 
E318] **** 
E31A] 33 
E31B} kkaK 
E31D| 39 
E31E[ **** 
E320! 3A 
E321] **** 
E323} 0039 
E323) 

£323) 

E323| 

£323] 

E323 | 

E323 | 

E323| A6 8F 
E325| 9D 0001 
E328| E8 
E329| 98 
E32A| 9D OOO1 


pcecardrom.1lst 


and #CTS 7; aka, fREQ 
ora pcFlags 
sta pcFlags 
lda #010 7; Reset EXT 
sta sccctrlA 
FILE: PCEXEC.a65 PCcard - firmware for IBM-PC AppleTalk 


bra SCCintX ; and, re-examine 
Bext lda sccCtrl ; ok, load our status 
and #DCD ; aka, fDMA 


ora pcFlags 
sta pcFlags 
lda #010 ; issue EXT reset 
sta scecCtrl 
bra SCCintxX 


FOI III III IIIS GIGI GI CICICISIDIGI ICICI GIGI CII IIIS ICICI GIGI III ICICI IITA IA IK 
7** end of pcEXEC 


-include PCCMDS ; Host command processing 
:** PCCMDS, Command execution routines from PC. 


BORIC II III CTO III CIO III IR ICICI ICICI TOR ICI ITO II IO IK 
;* cTbl, the command table which is searched by xPCcmd when a new 
;* command has been processed. Note, the address of the command is -1 due 


;* to the manner in which RTS works. 
JOR II III III IGG IICIICIOIGI III ICICI III III ITO IOI IIIA II IK IK 


cTbl 7* base of table 
; .byte 010 3 init LAP (and CARD) (special check) 
i »word xINITLAP-1 
-byte 001 7; host -> card 
-word xPC2US-1 
-byte 002 7; card -—> host 
-word xUS2PC-1 
-byte 004 7; read SysFlg 
.word xRDSFLG-1 
-byte 005 7; write SysFlg 
.word XWRSFLG-1 
.byte 008 7; BRIDGE info 
-word XBRIDGE-1 
.byte 011 7; ADD LAP type 
-word xXADDLAP-1 
«byte 012 7; DELete LAP type 
-word xDELLAP-1 
.byte 013 7 Transmit LAP pkt 
.word xTXLAP-1 
-byte 021 7; DDP OpenSocket 
«word xOPNSKT-1 
.byte 022 7 DDP CloseSocket 
.word xCLSSKT-1 
byte 023 ; TX DDP (short/extended) 
-word xTXDDP-1 
-byte 025 ; Tx DDP (short/extended w/ CKS) 
-word xTXDDP-1 
»byte 027 ; Tx DDP (w/ retries) 
-word xSNDNBP-1 
-byte O2F ; Abort xTXDDP w/retries 


.word xABTNBP~-1 
FILE: PCCMDS.a65 PCcard - firmware for IBM-PC AppleTalk 


»byte 031 7; SendRequest 
»word  xSNDREQ-1 
byte 032 7; SendResponse 
sword xSNDRSP-1 
.byte 033 7; AddResponse 
.word xADDRSP-1 
-byte 039 ; Abort a SendRequest 
.word xABTREQ-1 
byte O3A ; Abort a SendResponse (usually XO} 
-word xABTRSP-1 
oTblL ,equ $-cTbl ; length of table 


KK KK KKK KK IKKE KK KR KKK KR KR KR KR KEK KR KKK KKK KR KER EK KR KR KER KK KEK RK KEK KEKE ER KER KKK KEK KK KK 
* postSTS, common subroutine to add entry to STStbl. A has RID, 


7* Y has STATUS. 
OGIO SIO ICI CIIGIO ISIC GIGI GIGI ISIC ORIG DIGIOITICICISIGIGI ISIC IGIGIGIDICITISICII ICICI CITC ICICI I ICK 


« 
¢ 
. 
La 


postsTs 7** called from elsewhere!! 
ldx sTsQtl ; make sure of room 
sta STStbl,x 
inx 
tya 


sta STStbl,x 


en A 


Page 
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E32D{| E8 inx 

E32E| 8A txa 

E32F| 29 3F and #03F ; handle wraparound 

E331[{ C5 8E cmp STSQhd 7 overflow? 

E333| FO** beq $1 ;~=60yes, don't update tail 

E335| 85 8F sta STSQtl 7 else, we're ok.. 

E337 | 

E333* 02 

E337] A9 90 $1 lda #STSrdy 

E339| 85 11 sta pcIdle 

E33B| 

E33B] 3** see if we can post STSrdy to Host now.. 

E33B{ A5 77 lda DMAlock+sOwn 7 anyone own DMA? 

E33D| DO** bne $9 ; if so, don't screw w/STATreg 

E33F | 

E33F| A5 11 lda pcIdle 7 else, inform user 

E341| 20 80E0 jsr setSTAT 

E344 | 

E33D* 05 

E344| 60 $9 rts 

£345| 

B345| BORG III I IOIGICICIGIGIOI II CIGIDISI ICI CIOIOI IIT III IG IIRC ICICI III RII IIE 
E345] 2»* CMDstat, get here to post ending status of current command. Note 
£345] @* that we assume that STSQ can never overflow!!!! 

E345 | FOR III IO III ICICI IOICI CIO ICIOICI ICICI ICICI ICICI IC TOI RIO TOR IRR RIK 
E148* 4553 

E13B* 45E3 

E345| 85 45 CMDdone sta CMDRsit 7 save result 

E347| A2 74 idx #DMAlock ; free DMA 

E349| 20 98E1 jsr semaV 

E34C} 

E34C| AS 47 CMDstat lda CMDRID 7; RID 

E34E| FO** beg $1 3; 0 -> no status now!! 
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E350] A4 45 idy CMDRslt 

E352{ 20 23E3 jsr postsTs ; show user 

E355| 

E355| 3** check if we should setSTAT for caller 

E34E* O05 

E355| AS 77 $1 lda DMAlock+sOwn 7 anyone own DMA? 

E357{ DO** bne CMDtask ; Af so, don't screw w/STATreg 

E359| 

E359| AS 11 lda pcIdle ; else, inform user 

E35B| 20 8050 jsr setSTAT 

E35E| 

E35E| FOR I ORI IO ICRI TORI ICI IOI TORII IR IR RR KK IR I RK TK KR RIK RR IKK RIK RIK KE 
E35E| 7* CMDtask, command execution master loop. This task waits until 
E355 | 7* REQsema gets cranked, as the result of a pcREQ seen. 

E35E | ORR TORR FOR ROR RIFO FOROROFIIOR K ORI IOI FOR TR KOR ORR ICTR RR KOTOR KOR IO TOR TOK RR IOI HE KK 
E35E| 

BE357* 05 

E002* SDE3 

E35E] 58 CMDtask cli 3; make sure ints can come in 

E35F{ A2 70 ldx #REQsema ; wait for something to do 

E361} 

E361] 20 CCE1 jsr semaP 

E364] 

E364| A2 74 ldx #DMAlock ; then, ask for use of DMA 

E366| 20 CCEL jsr semaP 

£369 | 

E369 | y** fetch the command from Pc (fixed length) 

E369| AQ Al lda #REQinfot1l ; show what we want on DMA 

E36B| 20 **** jsr waitDMA : and, wait 

E36E | 

E36E| AD 0080 lda DMAreg 7; fetch REQcode 

E371{ 85 12 sta pcREQ 7 save for search loop 

E373] AD 0080 lda DMAreg 3; and RID 

E376{ 85 47 sta CMDRID 

E378 | 

E378 | peer save last 8 commands in CMDhst 

E378| A6@ 2F 1ldx CMDhstP 7; current "next" 

E37A| A5 12 lda pcREQ 

E37C{| 9D 801F sta CMDhst,x 

E37F| E8 inx 

E380] AS 47 lida CMDRID 

E382} 9D 801F sta CMDhst,x 

E385{ E8 inx 

E386| 8A txa ; update ptr 

E387| 29 3E and #03E 7 (modulo 40} 

E389} 85 2F sta CMDhstP 

E38B| 

E38B | FORO I IIR RIOR IOI OR ITOK ITI FIR AOI K IFO K KIRK ROK RR KR IIR RIK RIK EK ERK 
E38B| 7* to make sure that we always can accept STATUS commands, we must be 
E38B| 7;* sure that one task always is available for non-STATUS. 

E38B| ORI RRR IR IR III TOO IOI ITC IRC ROR RRO RO RICCI FOTO TOTO RIO OK 
E38B[ A5 12 lda pcREQ 7; get request 
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E38D{ FO** beq xSTATUS 7; faster processing for STATUS request 
E38F | 

E38F | z** decode the command type, backwords search of command table 
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E38F| A2 39 $1 ldx #cTblL ; index (and loop counter) 

E391{ c9 10 cmp #010 ; XINITLAP request? 

E393| DO** bne $2 

B395| 4C **** jmp xINITLAP ;)6yes, off to it now 

E398 | 

E393* 03 

E398| 29 F8 $2 and #0F8 7; special range? 

E39A | 

E39A| FO** beq $21 ;)6yes, allow it 

E39c| 24 13 bit myFlags ; no, check if we've been initialized 
E39E| 10** bpl xPCerr 7; no, we can't do anything ‘til we are 
E3A0] 

E39A* 04 

E3A0| A5 12 $21 lda pcREQ 7; re-load it 

E3A2 | 

E3A2| DD EAE2 $3. cmp Ctbl,x 7 is this it? 

E3A5| FO** beq gocmd ; yep...» 

E3A7| CA dex 7; else, count down 

E3A8|] CA dex 

E3A9| CA dex 

E3AA| i0F6 bpl $3 7; loop if still more left 

E3AC | 

E3AC | 7** Allegal command 

E39E* OC 

E3AC] AY FF xPCerr lda #REQerr y set error status for return to CMDtask 
E3AE| 4C 45E3 jmp CMDdone 

E3Bi1 | 

E3B1 | ¢** found command, off to it 

E3A5* OA 

E3B1] 64 45 gocmd stz CMDrslt 7 set default result 

E3B3| BD ECE2 lda cTbl+2,x ; fetch the address (-1, due to RTS) 
E3B6| 48 pha 

E3B7| BD EBE2 lda cTbi+1,x 

E3BA| 48 pha 

E3BBi 60 rts 

E3BC | 

E3BC} PRR OR IR RIK RK IK RR RK RR RR RIK RK RRR KIRK IK BKK KR RK RHR KERR KERR KAR ER RK RK KEK 
E3BC[ :* xSTATUS, code for status request from PC. If status is available, 
E3BC | ;* send to Host, else return 0. 

E3BC | BRR IR TOR RR FOR KR RK OK OI KK KK IK ROK OK KK TOK IK RK RR RRR RRR RR RR KK RK ERK RK RIK HK KR KKK 
E38D* 2D 

E3BC| A9 BO xSTATUS lda #REQdata 7 tell host 

E3BE[| 20 **** jsr waitDMA 

E3c1| 

E3C1| A6 8E idx sTsQhd 7; any status ready? 

E3C3| E4 8F cpx sTsotl 

E3c5| FO** beq $0 j nope, return null 

E3¢c7| BD OOO1 lda STStbl,x : else, report it 

E3CA| E8 inx 

E3CB| 8D 0080 sta DMAreg ; RID 

E3CE| BD 0001 lda STStbl,x 

E3D1| E8 inx 

E3D2| 8D 0080 sta DMAreg 7; Rslt 

E3D5{ 8A txa 

E3D6| 29 3F and #03F 3; mask around the end 
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E3D8 | 

E3D8| 85 8E sta STSQhd 

E3DA| 

E3DA| A2 80 $1 ldx #DMAidle 7 assume empty 

E3DCc| CS 8F cmp STSQtl 7; empty now? 

E3DE| FO** beq $2 

E3E0| A2 90 ldx #STSrdy ; else, show more 

E3DE* 02 

E3E2| 8A $2 txa 

E3E3| 

E3E3| 85 11 $3 sta pcIdle ; save for later 

E3E5}] 20 80E0 jsr setSTAT 3 do it 

E3E8| A2 74 ldx #DMAlock ; and, free DMA 

E3EA| 20 98E1 jsr semaV 

E3ED| 4C 5SEE3 jmp CMDtask 7 back for more 

E3FO| 

E3c5* 29 

E3FO/ 9c 0080 $0 stz DMAreg 7; return 0 

E3F3| AQ 80 lda #DMAidle ; delay for some 

E3F5| 80EC bra $3 ; and share 

E3F7| 

E3F7| ORR RRR OR FOR IR TOR ROI FOR TORIC OR TOR IORI RIOR ROR RR ROR ROR ROR FOR TOR AOR FORA TOR AKO OK AK 
E3F7| ;* xWRSFLG, set SysFlgs. Note: the value we set gets returned, since 


E3F7 | x* we fall thru into RDSFLG code!! 
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E3F7| ** xRDSFLG, return current SysFlgs stuff. Notes: the actual value gets 
E3F7 | ;* returned as “status" for this request. 

E3F7 | RIO IIR I IO IR IORI TO III IOI IOI TORII ICR IRR FOR IO TO RI IR FOI IR IR IOI IK HK 
E2F4* F6E3 

E3F7{ AD 0080 xWRSFLG lda DMAreg 7; get the new value 

E3FA| 85 30 sta SysFlgs 7 and, stash it 

E3FC| 

E2F1* FBE3 

E3FC|] AS 30 XRDSFLG lda SysFlgs ; get current values (as STATUS) 

E3FE| 4C 45E3 jmp CMDdone 7; and, merge 

E401 | 


£401 | RRR IRI RRR OR RO IORI TORT TOR TORII ICI TOR TOI RAK KI IR IR IORI RIK TKR RIK RR KKK RR 


E401] 3* xBRIDGE, return current BRIDGE stuff. 

E401} ORIG IGG III IOI GIO IGIOI III IOI IO TOTO FO TO IOI RIC IK 
E401} 

E2F7* OOE4 

E401] AQ BO XBRIDGE lda #REQdata ; tell user about it 

E403[ 20 **** jsr waitDMA 

E406 | 

E406| A5 OB lda aBridge ; get current values 

E408] 8D 0080 sta DMAreg 

E40B| AS OC lda ThisNet 

E40D| 8D 0080 sta DMAreg 

E410] AS OD lida ThisNet+1 

E412| 8D 0080 sta DMAreg 

E415| 

E415{ 64 47 stz CMDRID ; show no status 

E417| 4¢ 4553 jmp CMDdone 7; =©and, merge 

E41A| 

E41A| BORO TORII OR FOR IORI III ROR OI TOR IORI ICR ROK ROR ROR TOR RIOR IR ROK RIOR RIOR IORI RIK IKK ARK 
E41A| :* waitDMA, routine to be called by two-phase commands. We issue the 
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E41A} :* setSTAT for the first part of the command and wait for the £DMA bit to 
EA1AI :* be set for second phase, whereupon we return to our caller. A-reg has 
E41A| s* the code to send to PC, which indicates what we're waiting for. Low-bit 
E41A| «* of A indicates a read, so pre-fetch to "prime" the reg. 

E4i1A| BORO RGR ORR RII ICI IOI ICICI IC ICICI CIRC GRIGIO CRI CTCRI TOR RII RAFI 
E41Aj waitDMA1 7** intial entry to set STATUS 

F41A{ 48 pha 7 save RD flags 

E41B| A9 08 lda #£DMA ; clear any old DMA flag 

E41D[{ 14 10 trb pcFlags 

E41F| 68 pla 7 get function back 

E420{ 20 80E0 jsr setSTAT ; send, w/ interrupt 

E423| 60 rts 

E424 | 

E404* 24E4 

E3BF* 2484 

E36C* 2464 

E424| 48 waitDMA pha 
E425[ 20 1AE4 jsr waitDMA1 


save it 
for full treatment, call one 


=e Se 


E428| 68 pla 7 restore it 

E429] ;) then, fall thru 

E429| 

E429] waitDMA2 7** re-entry to wait for fDMA 

E429| 48 pha ; save function (low-bit counts) 

E42A| 20 FV7EL $1 jsr Yield 7 “wait" a while 

E42D| A9 08 lda #f£DMA 

E42F| 14 10 trb pcFlags 7; wait for the bit from PC to clear 

E431| FOF7 beq $1 

E433 | 

E433| 68 pla # get req back 

E434| 6A ror A ; shift to check bit-0 

E435{ 90** bec $9 7; «skip Lf not 

E437| AD 0080 lda DMAreg 7; else, do the pre-fetch 

E43A| 

E435* 03 

E43A| 60 $9 rts 7 then, return 

F438 | 

E43BI ORIG IOI IORI IOI ICICI RIT TOI RI TORR TRI R ROI IR IK ROR RR KARR ARK AK KEK KE 
E43B{ :* freeDMA, the tail-end code for a process which has allocated DMA and 
E43B| ;* wishes to send “ending" status to Host, making sure the Host sees it. We 
E43B| ;* issue the status and wait for the DMA request bit to go to 0; this 
E43B | 7* indicates that the Host is acknowledging the completion. 

E43B | FORO RII RRR OR RR ROTOR IO TOR TOI KR TOR TOR TOR FOR IRR ROR RRR FOR RIOR IRR ROK ROK RR KAR TOR RK IK 
E43B| A5 ii FreeDMA lda pcIdle ; always show current idle value 

E43D| 20 80E0 jsr setSTAT ; issue the status update 

E440| 

E440| 20 F7E1 $1 4Jsr Yield ; give others a chance 

E443] AQ 08 lida #£DMA ; then, check it 

E445] 2c 0040 bit ScCctrl 7 set? 

E448] DOF6 bne $1 7~=6yep, Host still doesn't know 


E44A| 
E44A| 7** having seen Host acknowledge it, free up DMA 


E44A| 
E44A| A2 74 ldx #DMAlock 


E44c| 20 9851 4sr semaV 
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E44F| 60 rts 

>>>>PAGE - 29 PCCARD FILE: PCCMDS.a65 PCcard - firmware for IBM-PC AppleTalk 
E450| 

E450{ DOO IOI IIR III IGOR I TOI IO IOI ORR III RIOT ITC II TOR IO PKI ERK 
E450| 3;* rdDMA, read a block of data from DMAreg into area defined by dpP/dc. 
£450| 7* To increase speed, we do them in chunks of 4, then remainder. 
E450| DOR IO RII II IO IOI IO III IO IO IIIT OR TORI CR ICICI ROTOR FOR FOR IO RIK 
E450] AC 00 rdaDMA ldy #0 3; starting offset 

E452| AS 1A lda dc 3 pickup low-byte of count 

E454| 66 1B ror dact+1 7; shift hi 

E456| 6A ror A : into lo 

E457| 66 1B ror dc+1 

E459[ 6A ror A ; for 2 bits 

E45A| FO** beq $3 ; skip to remainder case if no 4x 
E45C| AA tax ; else, copy for loop's usage 

E45D] 

E45D| AD 0080 $1 Ida DMAreg ; copy 4 fast... 

E460] 91 18 sta @dP,y 

E462| c8 iny 

E463| AD 0080 lda DMAreg 

E466| 91 18 sta @dP,y 

E468| C8 iny 

£469] AD 0080 lda DMAreg 

E46C] 91 18 sta @dP,y 

E46E| C8 iny 

E46F| AD 0080 ida DMAreg 

E472| 91 18 sta @dP,y 

E474| c8 iny 

E475{ DO** bne $2 7; we only test after every 4 bytes 
E477| E6 19 inc dP+1 

E475* 02 

E479| CA $2 dex ; down-count of /4 

E47A| DOE1 bne $1 

E47C | 

E47C | i** handle remainder 0..3 bytes here 

E45A* 20 

E47C| AS 1A $3 lda dc 7; pickup low 3 bytes 

E47E| 29 03 and #003 7 use only 2 bits 

E480| FO** beq $9 7 yeah, all done 

E482| AA tax 7; else, copy for loop 

E483 | 

E483{ AD 0080 $4 Ilda DMAreg 7 get it 

E486| 91 18 sta @dP,y ¢ 0 06stash it 

E488| c8 iny 

E489| CA dex 3 down count 

E48A| DOF7 bne $4 

E48C | 

E480* OA 

E48C{ 60 $9 rts ; and, done... 

E48D | 

E48D | 

E48D} FORO IIR RR TOR IR ITO IOI IIR III TORU IORI ROR RO OR AOR FOR OR A RO RIOR HK 
E48D | 3;* wrDMA, write a block of data from area defined by dP/dC to DMAreg. 
E48D]| 7* To increase speed, we do them in chunks of 4, then remainder. 
E48D | OGIO III III IOI III II IOI ICI III II IG IOI ICI ICICI III IIIT FOK 
E48D| AO 00 wrDMA ldy #0 7 starting offset 

E48F{ A5 1A lda dc 3; pickup low-byte of count 
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E£491| 66 1B ror dactl y shift hi 

E493| 6A ror A 7; into lo 

E494| 66 1B ror dactl 

E496| 6A ror A ; for 2 bits 

E497| FO** beq $3 ; skip to remainder case if no 4x 
E499| AA tax ; else, copy for loop's usage 

E49A | 

E49A{ Bl 18 $1 lda @dP,y 7 copy 4 fast... 

E49¢|{ 8D 0080 sta DMAreg 

E49F[ c8 iny 

E4A0| Bl 18 lda @dP,y 

E4A2| 8D 0080 sta DMAreg 

E4A5| C8 iny 

E4A6| Bi 18 lda @dP,y 

E4A8| 8D 0080 sta DMAreg 

E4AB| C8 iny 

E4Ac| Bl 18 lda @dP,y 

E4AE{| 8D 0080 sta DMAreg 

E4B1| c8 iny 

E4B2| DO** bne $2 ; we only test after every 4 bytes 
E4B4] E6 19 inc dP+1 

E4B2* 02 

E4B6| CA $2 dex ; down-count of /4 

E4B7| DOEL bne $1 

E4B9 | 


E4B9| 7;** handle remainder 0..3 bytes here 
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E497* 20 

E4B9{ AS 1A $3 Ida dc 7 pickup low 3 bytes 

E4BB{ 29 03 and #003 3; use only 2 bits 

E4BD| FO** beq $9 7 yeah, all done 

E4BF| AA tax ; else, copy for loop 

E4cO0| 

E4cO| Bl 18 $4 I1da @dP,y 7; last odd ones... 

E4C2| 8D 0080 sta DMAreg 

E4c5| c8 iny 

E4C6| CA dex 7 down count 

E4C7{ DOF? bne $4 

E4C9} 

E4BD* OA 

E4C9| 60 $9 rts 7; and, done... 

E4CA| 

E4CA| JORIS II GIGI IIIS III IGIGIGICICITIGICICICIGIGGGGIGI ICICI COCO III ATA 
E4CA} 

E4CA| 7* RCVtask, this task (which is always “running") is responsible for 
E4CA| :* the analysis and processing of any incoming packets. The low-level LAP 
E4CA| y* receiver (rxIntr) will enqueue packets to recvQ, and activate RCVtask 
E4CA| 7* (via a semaV(RCVtask)). 

E4CA | JOR ROR III IOI I IIR IIGIIOIGIO IOI IGI GGG TCC IIIT K 
E4CA| RCVfree 7** here for code which has allocated DMA 

E4CA| 20 3BE4 jsr freeDMA ; free up DMA for our task 

E4cCD | 

E4CD | RCVtask 7** all roads (for receive handlers) lead back here!!!! 
E4CD| 58 eli ; make sure ints are allowed 

E4CE| A5 54 lda RCVBufN 3 is there a buffer still allocated? 
E4D0| FO** beq $1 7; nope, skip it 
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E4D2| 20 73E2 jsr putFree ; else, requeue it to freeQ 

E4D5| 64 54 stz RCVBufN 

E4D7} 

E4D0* O05 

E4D7{| AS AS $1 Ilda rxP+1 3; is there an active buffer? 

E4D9[ DO** bne RCVwait ;)06yes, we're ok 

E4DB| A2 A4 ldx #xrxP 7 no, get one 

E4DD{ 20 33E2 jsr getFree 

E4E0[ 20 5BE2 jsr setRXP 7 update our stuff 

E4E3 | 

E4E3| r** the basic loop “wait"; we will be activated by rxIntr... 
E4D9* QO8 

E4E3] A2 A8 RCVwait ldx #RCVsema 

E4E5{ 20 CCEL jsr semaP 

E4E8 | 

E4E8 | ;* when we get back, at least one packet is sitting in our recvQ 
E4E8| 78 sei ; Ainihibit while diddling 

E4E9| A6 AC ldx recvQhd 7 get front of queue 

E4EB| 

E4EB[ BS 80 lda freeQ,x ; its next 

E4ED| 85 AC sta recvQhd 

E4EF| DO** bne $0 

E4F1| 85 AD sta recvQtl ; if empty, fix last also 

E4F3| 

E4F3 | 7** ok, analyze the packet 

E4EF* 02 

E4F3| 58 $0 cli 

EB4F4| 8A txa 

E4F5| 85 54 sta RCVBufN ; save for later 

E4F7| A2 14 ldx #rtP ; setup our ptr 

E4F9| 20 4482 jsr cvtBufN 

E4FC | 

E4FC| AO 04 ldy #laType+2 ; look at its type 

E4FE| Bl 14 lda @rtP,y 

E500| c9 O1 cmp #laDDP 7 DDP (short)? 

E502] FO** beq $10 

E504| ¢3 02 cmp #1laDDPX ; DDP (extended)? 

E506{ FO** beq $20 

E508{ 20 **** jsr chkLAP 3; check if protocol is in registry 

E50B| DO** bne $1 ; user wants it 

E50D | 

ES5OD{ AX 02 lda #fALAP 7 else, all LAP? 

ESOF| 24 30 bit SysFlgs 

E511| FOBA beq RCVtask 7; if not, forget it 

E513| 

E5OB* 06 

E513| 4C€ **** $1 jmp xRXLAP 7 else, send it to Host 

E516 | 

E502* 12 

£516| AQ 04 $10 lda #£NDDP 7 do DDP? 

E518| 24 30 bit SysFlgs 

E51A| DOF? bne $1 ; no, handle as LAP 

E51C| 4C€ **** jmp xRXDDP 7; yes, let someone who knows handle it 
ESIF | 

E506* 17 
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E51F| A9 04 $20 lda #f£NDDP 3 do DDP? 

E521] 24 30 bit SysFlgs 

E523| DOEE bne $1 ; no, handle as LAP 

E525| 4cC ***%* jmp xRXDDPX 

£528 | 

E528 | JORIS IIS III GIO GIGI GIGIGICIGIOI I ICIOIOIOI ICICI CIO III OO IOI III IT IO IIA IK IR IR IA 
E528 | 3* XMTtask, the code to transmit packets. The packets may either be 
E528 | ¢* explicit (via LAP/DDP requests) or implicit (via ATP requests). In any 
E528 | «* case, we remove the next request from xmitQ and txPacket it. 
£528 | WOR IIIIII CII IOI IOI ICICI ICICI CICICI II CITIOICI ICICI ICICI III IIT ICT ICI ITO ITA TAA 
£528 | 

E528| 58 MMTtask cli ; make sure to allow ints 

E529| A2 20 ldx #XMTsema 7; the xmitQ count (we hope!) 

E52B| 20 CCEL1 jsr semaP 

E52E| 

E52E| y** we have a buffer to send, acquire it and send. 

E52E{ 78 sei ; inhibit while checking queue 

E52F| A6 24 ldx xmitQhd 7; get first 

E531| FOFS beq XMTtask ; whoops!!!! (shouldn't happen) 

E533| B5 80 lda freeQ,x ; advance chain 

E535| 85 24 sta xmitQhd 

£537| DO** bne $1 ; skip if not last 

E539| 85 25 sta xmitotl 7; else, set last ptr also 

E53B| 

E53B| ;** having obtained a buffer, setup our params 

E537* 02 

E53B| 58 $1 cli ; can allow now 

E53c| 86 4¢ stx XMTBufEN 7; current XMT buffer Number 

ES53E| A2 78 ldx #XMTlock 7; obtain user of transmitter 

E540| 20 CCEL jsr semaP 

E543| 

E543| A2 94 ldx #txPd 

E545{ A5 4c lda XMTBufN 

E547{| 20 4482 jsr cvtBufN 7 convert it 

E54A| 

E54A| :** convert addresses for header/data 

E54A[| 18 cle ; compute address of header 

E54B{ A5 94 lda txPd 

E54D| 69 68 adc #HDROFS % 0100 

E54F! 85 90 sta txPh 

E551{ A5 95 lda txPd+l 

E553{ 69 02 adc #HDROFS / 0100 

E555| 85 91 sta txPh+1 

£557 | 

E557 | i** copy params for txPacket call 

E557| B2 94 lda @txPd 3; size of header 

E559| E6 94 inc txPd 

E55B| 85 92 sta txCh 

E55D| 64 93 stz txCh+l 

ES5F| B2 94 lda @txPd 7 requesting task 

E561! E6 94 ine txPd 

E563[| 48 pha 3 save it on stack 

E564| B2 94 lda @txPd 7; length of data 

E566| E6 94 inc txPd 

E568] 85 96 sta txCd 
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E56A| B2 94 ida @txPd 

E56C| E6 94 inc txPd 

E56E] 85 97 sta txCdtl 

E570| 

E570| ;** finally, send the bloody thing 

E570] 

E570{ 20 **** jsr txPacket 

E573! 48 pha 7; save result 

E574| A2 78 ldx #XMTlock ; free tx 

E576| 20 98E1 jsr semaV 

E579| 68 pla ; restore status 

E57A| FA plx ; and task to wakeup 

E57B} 95 05 sta tRslt,x 7; save it for its use 

E57D{| AQ 04 lda #sTXDONE ; signal the task 

E57F{ 20 74E1 jsr Signal 

E582| 4C 28E5 jmp XMTtask 7; and, loop 

E585| 

E585 DOOR IIR I III IOI ICICI IO ICI IOI CIO IOI I ICI OK ITOK IK IK 
E585 | ;* xXTXPKTA, common code to allocate a buffer and setup its ptrs. 
E585 | ;* dP points to "data" portion of buffer, t2 pts to “header”. 
E585 | ORR IIR I CRITI IIR ACT ICR AIRC CICORORRCICT CORR RR T OR RAT FIR RAK 
E585 | xTXPKTA 7** used by txLAP/txDDP 

E585| Az 18 ldx #dP 7 get free buffer 

E587| 20 33E2 jsr getFree 

E58A| FO** beg txPKTAe ; error here 

E58c| 85 44 sta CMDBufN ; save our buffer number 

E585 | 

E58E | ;** make LAP header in our buffers offset area 
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E58E| 18 cle 

E58F{ AS 18 lda dP 7; copy for header build 

E591| 69 68 adc #HDROFS % 0100 

E593| 85 02 sta t2 

E595| AS 19 lida aptl 

E597| 69 02 adc #HDROFS / 0100 

E599| 85 03 sta t2+1 

E59B| 60 rts 

E59¢C| 

E58A* 10 

E59C| 68 txPKTAe pla ; pop return address 

E59D{ 68 pla 

E59E|] A9 FE lida #NoFPreeErr 3 no free buffer 

E5A0| 4C 45E3 jmp CMDdone 

E5A3 | 

E5A3 | JOR II II III II III CII CII GOI I CIGI ICICI III ICI III CII ICICI TOR ITO IR ATK IK 
E5A3 | i **EOF PCCMDS 

E5A3 | 

E5A3 | 

E5A3 | -include PCLAP ; Link Access Protocol handler 

E5A3] ¢** PCLAP, PCcard Link Access Protocol code 

E5A3 

cas, JRO RRO IORI R IRR OK IOI TI RTI RIK RRR TKR RK RRR IRR KIKI KAI K IK ER KIRK KR KA 
ES5A3 | s* RxIntr, entry from interrupt handler upon seeing RCA packet. Note: 
E5A3 | 7* A is the only reg saved to this point, so finish saving while receiving 
E5A3 | i* first bytes of frame. 

E5A3 | ¢* In order to allow users to handle non-DDP style (i.e., no explicit 
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ES5A3 | ;* length field), we check for EOP on each byte. We should be running fast 
E5A3 | ;* enough so that we can afford to make this check. It is the responsibility 
E5A3} ;* of the higher levels to verify lengths. 

E5A3 | ;* We assume that the receive params (mainly, rP and rC) have been set 
E5A3} :* and we can use them as is; woe betides us if this is not the case!!! 
E5A3 | FOR R TOR RR IIR I TOR IIR ROR RII RIK I IK RIOR RR IR RRR KR RIK RR IKK RRR RRR RK KARR KK RRR EK 
E5A3 | 

E2cO* A3E5 

E5A3| DA rxIntr phx 7 save other regs 

E5A4| 5A phy 

E5A5| AD 0140 lda sccData 7 we know there's one present 

E5A8| 48 pha ;))06osave it 

E5A9| AS Al lda rPt+1 ; check on presence of buffer 

E5AB| FO** beq rxSKPl ; whoops, throw it away. 

E5AD| 68 pla 7; else, get the byte 

ESAE| AO 02 ldy #2 7 setup loop (skip over count field) 

E5B0| 

ES5BO| 91 AO sta @rP,y 7; and, save ours 

E5B2 | 

ESB2 | i** the main receive loop 

E5B2| A2 08 $0 ldx #8 ; timeout value (for UNDerruns) 

E5B4| AQ O1 lda #RCA 3; bit loop value 

E5B6| C8 iny 7 up rP offset 

E5B7| DO** bne $1 

E5B9| E6 Al inc rP+1 

E5B7* 02 

ESBB| E6 A2 $1 ince re 7; adjust max length ctr 

E5BD{ DO** bne $2 

E5BF| E6 A3 ine rc+1 

E5Cc1| 10** bpl rxLNG 7 error if too many! 

E5C3| 

E5BD* 04 

E5C3| 2c 0040 $2 bit secCtrl 3; RCA? 

E5Cc6| DO** bne $3 7)60yes, fetch it 

E5C8| CA dex 

E5c9| DOF8 bne $2 7 loop Lf not timed out 

ES5CB| 80** bra rxUND ; whoops, we stopped!?! 

ESCD | 

ESC6* 05 

ES5CD| AD 0140 $3 lda sccData ; fetch the byte 

E5D0| 91 AO sta @rP,y ; ~=6©and, save it 

E5D2| AQ O1 lda #1 ; check for errors 

E5D4| 8D 0040 sta scecCtrl 

E5D7| AD 0040 lda secCtrl 

E5DA{ 30** bmi rxEOF 7; skip on EndOfFframe 

ES5DC| 29 20 and #OVR 7 OVeRrun? 

E5DE| FOD2 beq $0 7 nope, keep going 

E5E0{ 

E5E0| 7** error present; should be EOF 

E5EO| A2 BE rxOVR ldx #OVRct ; handle the error 

E5E2| 80** bra rxReset 

E5c1* 21 

ED5E4| A2 c4 YrXLNG ldx #LNGct 

E5E6| 80** bra rxReset 

E5E8{ A2 CO rxCRC ldx #CRCct 
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E5EA[ 80** bra rxReset 

E5AB* 3F 

E5EC| 68 cxSKP1l pla 7; entry from rxIntr, pop ist byte 

ES5ED| A2 BA *“xSKP ldx #SKPct 

E5EF| 80** bra rxReset 

E5CB* 24 

E5F1| A2 BC rXUND ldx #UNDct 

E5F3{ 80** bra rxReset 

ES5F5| 

ESDA* 19 

ESF5| 29 60 rxEOF and #CRC+OVR ; else, check CRC 

E5F7| DOEF bne rxCRC ; Lf either, treat as CRC 

E5F9| AQ 30 lda #030 

E5FB| 8D 0040 sta secCtrl ; reset Errors 

E5FE{ AD 0140 lda sccData ; and, flush the FIFO 

E601| AO 04 ldy #laTypet2 ; look at control byte 

£603] 

E603| Bl A4 lda @rxP,y 

E605| 30** bmi rxLAP ; LAP control (maybe! ?) 

E607| 4C **** jmp rxData 3 its a Data frame, handle it 

E60A | 

E60A| :** the byte looks like a control packet, check on type 

E605* 03 

E60A| 85 AE rxLAP sta fType ; save what we got 

E60C| C9 84 cmp #laRTS 7; RequestToSend? 

E60E| DO** bne $1 

E610| 4¢ **** jmp rxRTS 7; )=6yep, reply (unless broadcast) 

E613] 

E60E* 03 

E613] c9 81 $1 cmp #1aENQ ; only other "valid" one 

E615| DO** bne $2 

E617{ 4c **** jmp rxENQ ; ENQUIRY, defend our number 

E61A| 

E61A| ¢** others are either illegal, or duplicate number 

E615* 03 

E61A} C9 85 $2 cmp #laCTS 7 CTS (to us?!) 

E61C| FO** beq rxCTs 

E61E| C9 82 cmp #1aACK 

E620{ DO** bne rxBad 

E622 | rxACK 

E61c* 04 

E622 | rxCTS 

E622| A2 B8 ldx #cTSct ; set for normal exit 

E624| AS AF lda laState 7; were we doing Tx? 

E626| 30** bmi rxReset 7 yep, count and leave 

E628 | 

E628| A2 C6 $1 ldx #DUPct 

E62A| 80** bra rxReset 

E62C | 

E620* OA 

E62C| A2 C2 rxBad ldx #BADct 7; update error counter 

E62E 

aoe BRR IRR TKR TOR RIOR IRR ITOK RIOR ITOK KORO TORII ROR TORK ROTOR RTO TORR KTR RIK ICR KR TI IK IK OK KK 
E62E| y;* yvxReset, reset Rx after valid packet, or in middle of bad one, X is 
E62E] :* assumed to have the base of an error counter to be adjusted. 
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E62E| UFO I IO IO III I III III IOI IOI ICICI III IC ICICI IOI ICR III FOR AOR OK AOk 
E62A* 02 

E626* 06 

E5F3* 39 

E5EF* 3D 

ESEA* 42 

E5E6* 46 

E5E2* 4A 

E62E] F6é 00 rxReset inc 0,x ¢ update low 

E630| DO** bne $1 

E632| E8 inx 

E633| F6 00 inc 0,x 

E635 

E635 | 7** complete by resetting working regs (rP,rC) to correct values 
£635| 

E630* 03 

E635| AS A4 $1  lda rxP 7 copy to working set 

E637| 85 AO sta rP 

E£639| AS AS lda rxP+1 

E63B| 85 Al sta rPt+1 

E63D| AY OF lda #~<rxCsz * 0100> ; set buffer size (compl) 

E63F| 85 A2 sta rc 

E641| AQ FD lda #~<rxCsz / 0100> 

E643] 85 A3 sta rCtl 

£645| 20 **** jsr rxFlush ; flush Rx, (and, fall thru to rxRTI) 
E648 

oe ORIG ICICI CITC ROI CIC ICICI ICR TOC ICI TOIT TORO RI TORR II TIKI AK IK KK HK 
£648 | ;* RxRTI, return from Rx interrupt; off to common post-processing. 
E648 | ORR IIT RR RRO IIIT ICI III ROK I TOR KOR IRR RRO ROKK KOI AOR IRR KKK RK KK 


E648 | 


E6 


rxRTI ine INTct ; update count of interrupt 
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E64A] DO** bne $1 

E64C| E6 Bl ine INTct+1 

E64A* 02 

E64E| 7A $1 ply 

E64F| FA plx 

E650| 4C ADE2 jmp sccintx 7 and, look for others 

E653 

See BOI II IOI IR IOI IO ICI ICICI III ICICI IC ICRC ICICI III TO IIIT 
E653 | «x yxFlush, reset SCC, flushing any residual bytes in FIFO. Note, this 
£653 | ?* code gets called by both Rx and Tx code. 

£653 | BORIC III IO III GI CIGIOIGICIIGICICICICICIGIGICICIGI TOI IGI III ICO ICICI ICICI IOC OITA TIAA 
E646* 53E6 

E653] ¢xFlush 

E653] A2 03 ldx #3. ; reset RX, inline to be fast.. 

E655| 8E 0040 stx seccCtrl 

E658| AQ CO lda #0CO 

E65A| 8D 0040 sta secctrl 

E65D | 

E65D| AD 0040 $1 Ilda secCtrl 3; still something/ 

E660] 6A ror A 7; note!! trick here, C gets RCA 

E661| 90** bee $2 7 nope, continue 

E663| AX 30 lda #030 ; else, reset Errors 

E665} 

E665{| 8D 0040 sta sccCtrl 

E668| AD 0140 lda sccData 7; and, pop the FIFO 
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E66B[ 8OFO bra $1 

E66D | 

E661* OA 

E66D| 8E 0040 $2 stx scecCtrl 

E670| A9 DD lda #0DD 

E672| 8D 0040 sta sccCtrl 

E675{ A® 20 lda #020 7; reset for Rx intr 

E677| 8D 0040 sta scecCtrl 

E67A{| AQ 30 lda #030 ; final (extra) reset Errors 
E67C| 8D 0040 sta sccCtrl 

E67F{ 60 rts 

E680) 

E680 | ORR IIR II RIOR TOTO TOTO TORIC ICR ICR KIO TOR ITOK RIK IIR ROKR OK I IKI RK KKK RR RK 
E680 | :* rxRTS, a RequestToSend has been seen. Send a CTS (unless a broadcast) 
E680} ;* and wait for assumed data packet. 

E680 | 7* rxENQ, likewise, respond w/ ACK to ENQ. 

E680 | POF IRR RIOR RIOR RRR TOR IORI TOR TOK IK TKI KK TOK RR RK KR KIKI KK KR IIHR RR AHR KK CK 
E680 | 

E618* S8OE6 

E680| AQ 82 rxENQ lda #laACK 7 respond w/ ACK 

E682| DO** bne rxXXX 

E684 | 

E611* 84E6 

E684| A9 O1 ryxXRTS lda #laDATwt 

E686| 85 AF sta laState ; show what's happening 

E688| A9 85 lda #lacCTS ; set to recv, send a CTS 

E68A| 

E68A| 7** turn packet around 

E682* 06 

E68A| 85 GE YXXXX sta CTSfrmtlaType 7; stash our response type 
E68c} A5 13 lda myFlags ; have we determined our number yet? 
E68E[| 30** bmi $1 7 yes, its ok.. 

E690| 4C EDES jmp rxSKP 7; no, ignore it 

E693} 

E68E* 03 

E693| AO 02 $1 Ildy #laDstt+2 7 swap Dst/Src 

E695{ Bl A4 lda @rxP,y 

E697| C9 FF cmp #0OFF ; was this a broadcast? 

E699| FO** beq $9 ?~=60yes, skip CTS send 

E69B| 

E69B| 7** not a broadcast, setup la stuff in CTSfrm for txFrame response 
E69B| C8 

E69C| Bl A4 lda @rxP,y 7 fetch Src 

E69E| 85 6C sta CTSfrmt+laDst 

E6A0| AQ 6C lda #CTSfrm 7; setup txFrame args 

E6A2| 85 DO sta xP 

E6A4| AQ 03 lda #3 

E6A6| 85 D2 sta xC 

E6A8| 64 D1 stz xP+l 

EGAA| 64 D3 stz xCtl 

E6AC| 20 **** jsr txFrame ; send the sucker 

EGAF | 

E699* 14 

EGAF| A2 B6é $9 Ildx #RTSct ; show we went ok 

E6B1| 4C 2EE6 jmp rxReset 
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E6B4 | 


E6B4 | OR IRI IGRI III CII IIIGITIICIGICICCCIGIGIOIGICICCICIC I CICICICICICICICICICIOCI OR III ICICI ICR 
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E6B4 | 3* yxData, received a data frame. Enqueue the packet to recvQ, and 
E6B4 | ** activate RCVtask via its semaphore. Note that we load rC w/ complement 
E6B4 | ** of rxCsz. This value is incremented for each byte PLUS 1 additional for 
E6B4 | 3* the 1st CRC byte. By adding rxCsz, we adjust for this one extra! 
E6B4 | DOIG III II III ICICI GICIOI IOI ICICIGIIOI ICICI III IOI III II ICICI TIO TIAA AIK IK 
E608* B4E6 
E6B4] AO OO yxData ldy #0 ; prepare to stash size 
E6B6| 18 cle ; compute size of packet 
E6B7| A5 A2 lda rc 
E6B9|{ 69 60 adc #rxCsz % 0100 
E6BB| 91 A4 sta @rxP,y 7; and, place at front of buffer 
E6BD| C8 iny 
E6BE| A5 A3 lda rC+1 
E6CO| 69 02 adc #rxCsz / 0100 
E6C2| 91 A4 sta @rxP,y 
E6C4| 
E6Cc4{ AS AG lda rxBufN 7 our buffer's number 
E6C6| A6 AD ldx recvQtl 7 add it to end 
E6C8| 85 AD sta recvQtl ; our's is new end 
E6CA| DO** bne $1 
E6CC| 85 AC sta recvQhd ; if empty, place ours on head 
E6CE{ 80** bra $2 
E6D0| 
E6CA* 04 
E6D0| 35 80 $1 sta freeQ,x ; last's next 
E6D2| 
E6CE* 02 
E6D2| AA $2 tax 
E6D3| 74 80 stz freeQ,x ; make sure or our next 
E6D5| A2 A8 ldx #RCVsema ; then, activate RCVtask 
E6D7| 20 98E1 jsr semaV 
E6DA| 
E6DA| A2 A4 ldx #rxP 7 get another buffer (if available) 
E6@DC| 20 33582 jsr getFree 
E6DF| 20 5BE2 jsr setRXP 7; and, setup stuff 
E6E2 | 
E6E2| A2 B2 ldx #RXPct ; if we got this far, we're home 
E6E4| 4C 2EE6 jmp rxReset 
E6E7]| 
EGE7 | POR IIR RII ICRI ORCI ICRI ICICI ROR TORO OR GRR BORO A FOTO TOK RR HK 
E6E7| ¢* xRXLAP, handler for non-DDP packets (filtered by RCVtask). 
E6E7 | ORI IOI I III IG III IOI ROI ICICI ROR ROR RIOR TOR TOR ITOK RR RIOR KK 
E514* E7E6 
E6E7{ 20 **** XRXLAP Jjsr XRXPKT1 7 obtain DMA 
EGEA| AQ 14 lda #014 3 rxLAP "function" 
E6EC | 
E6EC| 8D 0080 sta DMAreg 7 function code 
E6EF] A2 03 ldx #3 ; length passed during DMAinfo phase 
E6F1{ AO 00 ldy #0 ; copy length for computation 
E6F3{ 38 sec 
E6F4| Bl 14 lda @rtP,y 
E6F6| C8 iny 
E6F7| E9 03 sbe #3 
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E6F9| 85 1A sta dc 7; set remainder data 
E6FB| Bi 14 lda @rtP,y 
E6FD| C8 iny 
E6FE| E9 00 sbc #0 
E700| 85 1B sta dctl 
E702 | 
E702| Bl 14 $1 Ida @rtP,y 7 stuff it 
E704| C8 iny 
E705| 8D 0080 sta DMAreg 
E708| CA dex 
E709| DOF7 bne $1 
E70B| A5 1A lda dc 7; stash to user (length) 
E70D| 8D 0080 sta DMAreg 
E710] AS 1B lda dc+1 
E712] 8D 0080 sta DMAreg 
E715| 
E715} 98 tya 7 setup dP 
E716j 18 cle 
E717] 65 14 adc rtP 
E719] 85 18 sta dP 
E71B| AS 15 ida rtP+l 
E71D| 85 19 sta dPt1 
E71F{ 
E71F!} FORO GIO III II ITO ITO ITO TORI I TOI TR ROK IRR ROKR RK RRR AIRE IKE KK ERK 
EV1F| ;* xRXPKT2, common tail-end processing for received packet. 
V1F 
ae ORR I IO III IGOR ICICI III III ICICI ICICI ICICT CCR ICI CTO I TOO RIA ORK Fo 
E71F | xRXPKT2 
E71F| A9 DO lda #DMAdata ; show ready for data now 
E721| 20 2484 jsr waitDMA 
E724 | 


E724 { 7** now, copy the packet (note: dC has already been setup by "caller") 
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E724| 20 8DE4 jsr wrDMA ; and, do it 

E727 | 

E727| 4C CAE4 jmp RCVfree 3; and, we're ready for more 

E72A 

ey eai OCI RI IO ITO CII III OIG ICICI SII GIGI ICICI ICICI ICICI IOI IO I IIR IK RIK 
E72A| 3* xRXPKT1, front-end common code for receiving a packet. 
E72A| JOR III III IOI III III IOI III IOI TOR AICI OR IIT IOI TOK ARR IR IK IK TOK TOKIO IK EK 
E6E8* 2AE7 

E72A| A2 74 xRXPKT1 ldx #DMAlock ; for valid LAP pkt, grab DMA channel 
E72C| 20 CCEl jsr semaP ; 

E72F| A9 CO lda #DMAinfo ; tell user what we want 

E731| 20 2454 jsr waitDMA 

E734{ 60 rts 

E735 | 

E735| GOO RIO IO III II IOI IOI IOI IOI III IOI ICI IO IOI IO IOI IR AOR IO TR RIOR KR AK 
E735] «* = xXINITLAP, initialization code for LAP (and card). Until the first 
E735| ;* INITLAP, the Rx is disabled. Here, we setup the SCC for our port, and 
E735 | ¢;* start sending ENQ frames, looking for anyone responding. 
E735| OI I II IOI IID I IIGICIOICI ICICI GIGI GIGI IGG ICICI IOI IOI IOI ROI TOR 
E735 | xINITLAP 

E735| AD 0080 lda DMAreg ; user's guess at a number 

E738 | 

E738| 85 69 sta myNode 7; stash it 
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E73A| AQ 80 lda #fMyNode ; make sure we don't look valid now 
E73C| 14 13 trb myFlags 

E73E| A2 78 ldx #XMTlock + grab Tx for a while 

E740| 20 CCE1 jsr semaP 

E743 | 

E743 | ex*x initialize xSeed from SCC counter in A-port 

E743| AS DE ida xSeed 

E745] 05 DF ora xSeedtl 7; set yet? 

E747| DO** bne $0 ¢)~=6oyep, we only do this first time... 
E749| AQ OD lda #13. 

E74B}] 78 sei 

E74Cj{ 8D 0240 sta SCCctrlA 

E74F{ AD 0240 lda SCCctrlA 

E752{ 58 cli 

E753| 85 DE sta xSeed 

E755| A9 OC lda #12, 

E757|[ 78 sel 

E758| 8D 0240 sta SCcCctriA 

E75B| AD 0240 lda ScCctriA 

E75E| 58 cli 

E75F| 85 DF sta xSeedt1l 

E761 | 

E761 | 7** the retry loop, if an attempt fails (or, first time} 
E747* 18 

E761] AQ 81 $0 Ilda #laENQ ; set RTS frame for ENQ 

E763] 85 6A sta RTSfrmtlaType 

E765] A5 69 lda myNode 7 get users again 

E767] DO** bne $2 ; iff non-zero, try it first 

E769 | 

E769| 26 69 $1 rol myNode 7; save upper bit 

E76B| 64 69 stz myNode 

E76D{| 66 69 ror myNode 

E76F| 20 **** jsr Random 7; generate a value 

E772| 29 7F and #07F 7 mask to dynamic area 

E774| 05 69 ora myNode 7; add in user/server bit 

E776| FOFL beq $1 3; 6try again if 0 

E778 | 

E778 | 7** Anitialize our RTS pkt 

E767* OF 

E778| 85 69 $2 sta myNode ; save for a while (aka, RTSfrmtlaSrc) 
E77A| 85 68 sta RTSfrmtlaDst 7; (we send to ourselves) 

E77C| 85 6D sta CTSfrmtlaSre 7 save for our responses!! 
E77E| A2 06 ldx #6. 

E780| 78 sel 

E781| 8E 0040 stx ScCctrl ? setup SCC for this try 

E784| 8D 0040 sta SscCctrl 

E787| 58 eli 

E788 | 

E788| AQ O05 ida #5. 7: a retxy counter 

E78A | 

E78A| 85 03 sta t3 

E78c| AQ 68 lda #RTSfrm ; fake a frame 

E78E{| 85 90 sta txPh 

E790| 64 91 stz txPhtl + (prevents data Tx at txPkt5) 
E792 | 
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E792 { 7** the testing loop here. 

E792{ 20 **** $3 Jjsr txPacket 7; try to send it again 

E795] FOD2 beq $1 in use, must pick another 


we Ne 


ok, try again? 


E797| C6 03 dec t3 
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E799] 30** bmi $9 3; no, we probably have it!! 

E79B| 

E79B| 7;** syne up to next second boundary 

E79B| AS 1c lda TMRsecs ? get current time 

E79D| C5 ic $4 cmp TMRsecs ; and, wait for change 

E79F| FOFC beq $4 

E7A1| 80OEF bra $3 ; then, try another time 

E7A3 | 

E7A3 | y** we've tried a few times, and no one complained... 
E799* O08 

E7A3| AQ 80 $9 Ilda #fMyNode ; show we're now ready 

E7A5| 04 13 tsb myFlags 

E7A7| AQ 84 lda #laRTS ; fixup work frame 

E7A9| 85 6A sta RTSfrm+laType 

E7AB| A2 78 ldx #XMTliock ; free up Tx 

E7AD| 20 98E1 jsr semaV 

E7BO| 

E7BO| 4C **x** jmp setRTMP y exit thru RTMP module 7—A 
E7B3 | 


E7B3 | FOI III CII IOIOI ICICI IOIOIIOIOI ICICI CIO GIO ICI O I IO I OO TOIT ICR ITO IK IKK 


E7B3 | ;* xKADDLAP, add a LAP type to our receive LAPtbl. 

E7B3 | POR GSI GG ISI ISIS DIDI IG IOI OIGIISIISIICISICI GIO SISISISIDISIGISICISIOISIGI IOI GIGI SISISIOISIOISIG ISIC SIGISIGISIGI IOC IO IO 
E7B3| AD 0080 xADDLAP lda DMAreg 7 get LAP type 

E7B6| 30** bmi ADDDELe 3.06 error!! 

E7B8 | 

E7B8 | r** use code to address table, set mask. 

E7B8| 20 **** jsr chkLAP ; leaves X w/ offset, A w/ mask 
E7BB| DO** bne ADDDELw 3; error if so 

E7BD | 

E7BD| 1D 6001 ora LAPtbl,x ; else, add it in 

E7CO| 

E7CO| 9D 6001 ADDDELx sta LAPthl,x j update table's byte 

E7C3| A9 00 lda #0 7 no error exit 

E7C5| 4C 4583 jmp CMDdone 

E7C8 | 

E7BB* OB 

E7C8| AQ Ol ADDDELw lda #SKTerr 7 warning only 

E7CA| 4C 45E3 jmp CMDdone 

E7B6* 15 

E7CD| AQ FF ADDDELe lda #REQerr ; error if <0 protocol 
ETCF] 4C 4553 jmp CMDdone 

E7D2| 

E7D2| URI ICO IO IOFOTO TOR II TOI IIR TORR RII TOI TOR FOR AOR AOR TOR AOR IR IR RRR AK 


E7D2| ;* xXDELLAP, delete a LAP type from our LAPtbl. 

E7D2 | POR RR RR RR II IR IRI KK IK OK RRR FOR OK RIOR RR RK RRR IORI KOR KR OR RRR RK RIOR RR RR KKK HK 
E7D2! AD 0080 xDELLAP lda DMAreg ; fetch user's param 

E7D5{| 30F6 bmi ADDDELe ; obvious problem 

E7D7| 

E7D7| 20 **** jsr chkLAP 7; is it present? 

E7DA| FOF1 beq ADDDELe 7; nope, error 

E7DC| 5D 6001 eor LAPtbl,x ; yes, remove it 
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E7DF| 80DF bra ADDDELx ; and, share code 
E7E1| 
E7Ei | PRI RR RIT ICTR TOK RIOR IK II IK IK RIK TOK RK RR IR IK IK IR RK RK RRR RR KKK KIKI KAR KEK 


E7E1 | 3* chkLAP, lookup protocol (in A), does BIT here, leaves Z set. 

E7E1 | JOR III ICRI IOI III ITO IOI TOIT III IR IR I IK IK IR RIT KKK RK IKK IR RK IKK IK 
E7D8* EB1E7 

E7B9* ELE7 

E509* ELE? 

E7E1i| A8 chkLAP tay 7) save protocol 

E7E2| 4A Isr A shift off offset 

E7E3| 4A lsr A 

E7E4| 4A lsr A 

E7E5| AA tax X is offset into LAPtbl 

E7E6| 98 tya get protocol back 

E7E7| 29 07 and #007 7 bit# 

E7E9| A8 tay 

EJEA| B9 4BEO lda BITS,y 
E7ED | 

E7JED| 3c 6001 bit LAPtbl,x ; test current bit 
E7FO| 60 rts 


E7F1| 
EJF1| KK KKK KKK KKK KEK KK KEK KR KK KK RK KKK KR KR KKK RR RR KKK KR RK KKK EKER KER KEKE KKK KEK ERE K KKK EK 


ETF1| ;* xXTXLAP, processing code for the request to send a packet from user. 
E7F1| ;* Note that this is a two-phase command and does not actually initiate 
EVF1| 7* packet transmission directly. XMTtask will actually perform the dirty 
E7F1| ;}* work. All we do here is setup a buffer, copy user's data and wait for 
E7FLI +* XMTtask to Signal us when the packet has been sent. 

EVF1 I : KKK KKK KKK KIRK RR KKK KKK KKK KKK IKK KEK KKK KKK KEKE KKK KEKE KRKAEKERKREKKKKKKA KKK AK 
EVF1| xTXLAP 7** entry from CMDtask 

E7F1| 20 85E5 jsr xTXPKTA ; allocate buffer 

E7F4| AO 00 ldy #0 

E7F6[ AD 0080 lda DMAreg 7 get dstNode 

E7F9| 91 02 sta @t2,y 

E7FB| C8 iny 


=. 


72 Ne 


get bit mask 


_e 
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E7FC| A5 69 ida myNode ; source # (me!!) 

E7FE] 91 02 sta @t2,y 

E800| c8 iny 

E801| AD 0080 lda DMAreg 7 laType 

E804| 91 02 sta @t2,y 

E806| AD 0080 lda DMAreg 7 pktsize(lo) 

E809| 85 1A sta dc 

E8O0B| AD 0080 ida DMAreg 7 pktsize (hi) 

E80E| 85 1B sta dc+1 

E810| AY 03 lda #3 ; length of LAP header 

E812| 

E812 | JOGOS I III OIG IG GICIIGICIICICICICIOI ICICI ICI GIG I ICI IIIT IIT III ITOK ICTR 
E812 | ¢* xTXPKTX, common code shared by LAP/DDP. 

E812 | :* xTXPKTZ, common entry to clean up after a send. 
E81i2| JORG III IOI GIGI IIIS CITITIGIAIGIIGIGI GIGI GIGI IC TORIC OCR I IOI ITI IO 
E812 | 

E812| A2 40 XxTXPKTX ldx #CMDtcb 3; set param for xTXPKTD 
E814| 20 **** jsr xTXPKTD 7 send the packet 

£817| A5 44 lda CMDBufN 

E819| 64 40 stz CMDFlgs ; clear other flags 

E81B| 20 80E2 jsr putXmit 
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E81E| 

E81E|] AQ 04 lda #sTXDONE ; show what we're waiting on 

E820| 20 64E1 jsr Wait 

E823| 

E823{ AS 44 xTXPKTZ Lda CMDBufN ; get our buffer number back 

E825| 20 73E2 jsr putFree ; add it back to free list 

E828{ 4¢ 4CE3 jmp CMDstat 7; and, we're done... 

E82B| 

E82B[ JOR IIR II ICI IO III IORI IIGIIO ICICI ICICI ICR ROI IORI TTI I TOR ROR IK KK 
E82B| ;* xTXPKID, common code to acquire "data" portion of packet, Note that 
E82B| ;* this code is shared by xTXLAP/xTXDDP/xTXDDPX/xNBLKUP. 

E82B| ;* d@P/dC must be setup; it is assumed that dC has proper length and 
E82B| 3;* that dP points to buffer. We setup lst 4 bytes to pass stuff to XMTtask. 
E82B| ;* A has length of the header (HDROFS) for this buffer; X has TCB ptr. 
E82B} JOR III III IG ICI IGICICI ICICI ICICI ICICI ICICI I TOTTORI AO Ik 
E815* 2BE8 

£82B| xXTXPKTD 7* jsr'd by above or pcDDP 

E82B| :** build front of buffer w/ info req'd by XMTtask 

E82B| AO 00 ldy #0 7; make sure of index 

E82D| 91 18 sta @dP,y 

E82F{ C8 iny 

E830] 8A txa ; task for Signal by XMTtask 

£831| 91 18 sta @dP,y 

E833| c8 iny 

E834| A5 1A lda dc 7 copy counter 

E836 | 

E836] 91 18 sta @dP,y 

E838] C8 iny 

E839] AS 1B ida dct+l 

E83B] 91 18 sta @dP,y 

E83D| 18 clc 

E83E| A9 04 lda #4 ; adjust dP for rdDMA 

E840| 65 18 adc dP 

E842| 85 18 sta dP 

E844 | 

E844 | 7** now, request and copy user's data for this packet. 

E844| AQ Bi lda #REQdatat1 7; show why 

E846| 20 2484 jsr waitDMA ; 06©and, wait for it 

E849| 20 SOE4 jsr rdDMA ; ok, read packet's data 

E84c| AS 11 lda pcIdle ; free up DMA 

E84E| 20 8050 jsr setSTAT ;~=©6 for Host 

E851| A2 74 ldx #DMAlock 7; we're done w/ DMA for now 

E853| 20 98E1 jsr semaV 

E856 | 

E856] 60 rts 

E857] 

E857 | ORI OIII III IOIGIIGIOIGIOIIOI III ICICI ICICI GIGI ICICI CIC IIT TI IO 
E857} 7* txPacket, hi-level packet transmission. We here from TaskLP, or 
E857} :* possibly from higher-level protocol handlers, by which time the global 
E857]{ ;* parameters (txP/txC) have been setup. 

E857| DIIGO II III I ICIDIGI IOI IOI IOI ICICI III ICICI ICICI IO IIIT K 
E793* 57E8 

E857} txPacket 7** the following is performed only once per transmission 
E857| AS D4 lda xChist ; adjust backoff 

E859| 20 **** jsr bitCount 
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E85c| C9 03 cmp #3. 

E85E| 90** bee $1 

E860| A5 D8 lda xGmask 7 Collsn > 2, increase global mask 

E862| 2A rol aA 7; C set by cmp 

E863! 29 OF and #00F # masked to 15 


E865{ 85 D8 sta xGmask 
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E867| 64 D4 stz xChist ; clear Collsn history 

E869] 80** bra $2 ; setup rest of stuff 

ES6B} 

E85E* OB 

E86B| A5 D6 $1 lda xDhist ; check Defer histories 
E86D | 

E86D{ 20 **** jsr bitCount 

E870| c9 02 cmp #2. 

E872| BO** bes $2 7 no adjustment 

E874{ A5 D8 lda xGmask ; Defers < 2, decrease mask 
E876| 4A lsr A 

E877] 85 D8 sta xGmask 

E879| A9 FF lda #0FF 

E87B| 85 Dé sta xDhist ; Defers to max 

E87D | 

E872* 09 

E869* 12 

E87D| O06 D4 $2 asl xChist ; shift histories 

E87F| 06 D6 asl xDhist 

E881| AS D8 lda xGmask ; Global mask -> local 

E883] 85 D9 sta xLmask 

E885| A9 20 lda #32. 7 setup global retry stuff 
E887| 85 DS sta xCtrys 

E889| 85 D7 sta xDtrys 

E88B| 

E88B| 64 DB stz xfBcast 3; reset broadcast bit 

E88D| B2 30 lda @txPh 7 get laDst of user's 

E88F| 85 68 sta RTSfrmtlaDst 7; and, plug to our packet 
B891| C9 FF cmp #0FF 3; broadcast? 

E893| DO** bne txPkt0 

E895| 85 DB sta xfBcast 7 yes, set the flag (sign!!) 
E897 

ear ORI III I IO IOI III IOI III III GI CII IIR I TOR IO ICTR RAR RIK RK 
E897 | ;* The following loop is the main transmit code for an entire packet. By 
E897 | 3* this time, all adjustments to global mask have been made. We take it from 
E897] 7* there. 

E897] OI I III III ICICI IOI IOI III IO IIIT OCI IIR ICTR I TOR ATOR K TORI RII TKR TOR TAK RIK K 
E893* 02 

E897| 20 **** txPktO jsr Random 7 gen next random value 
E89A} 

E89A| 7** check if its currently busy 

E89A| AD 0040 lda secCtrl 

E89D| 29 10 and #HUNT 

E89F| DO** bne txPktl 7; it is idle, start big wait 
E8A1 | 

E8A1 | 7** line looks busy, time it in case of "stuck" HUNT 
E8A1 | 

E8A1| AS DY txId1lWt lda xLmask ; do min 0..1 delay 
E8A3| 09 O1 ora #001 
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E8A5| 85 D9 sta xLmask 

E8A7 | 

E8A7| A2 OF ldx #15. 

E8A9| AO 00 ldy #0 

E8AB| AD 0040 $1 Ilda secCtrl 

E8AB| 29 10 and #HUNT 

E8BO| DO** bne txPktl ; ok, it just went idle 
E8B2| 88 dey 

E8B3| DOF6 bne $1 

E8B5| CA dex 

E8B6| DOF3 bne $1 

E8B8 | 

E8B8| 20 53E6 jsr rxFlush ; clean out Rx 

E8BB| 4¢ 97E8 jmp txPkt0O ; should make it this time 
ESBE | 

E8BE | ;** line looks idle, so wait required IDG time 

E8BO* OC 

E89F* 1D 

E8BE| 64 AE txPktl stz fType 

E8CO} A2 Ol ldx #1. ; first of min 

E8C2} 20 **** jsr ckIdle 

E8C5| BODA bes txIdlwt ; 1£ not idle, defer 

E8C7| A2 OE ldx #14. 7; reset missing clocks 

E8C9| AQ 41 lida #041 

E8CB| 78 sei 

E8CC| 8E 0040 stx sccCtrl 

E8CF| 8D 0040 sta sccCtrl 

E8D2| 58 cli 

E8D3| A2 03 ldx #3. 3; reset of min 

E8D5| 20 **** jsx ckIdle 

E8D8| BOC7 bes txIdlwt 

E8DA| 

E8DA| 7** now wait the random spread 

E8DA| A5 DE lda xSeed ¢ get latest random value 
E8DcC| 25 D9 and xLmask ; masked by delay 

E8DE| FO** beg txPkt2 ; if none, start Tx now!! 
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E8EO| AA tax ; else, copy as param for ckIdle 
E8E1 |} 

E8E1[ 20 **** jsr ckIdle ; delay the extra 

E8E4| 90** bee txPkt2 ; yippy, it looks free 

E8E6| 

E8E6| ;** txDefer, perform deference processing here 

E8E6| C6 D7 txDefer dec xDtrys 7 More to go before giving up? 
E8E8| 10** bpl $1 ?)=6yep 

E8EA| AQ EF lda #DeferErr ; nope, report failure 

E8EC| 60 rts 

E8ED| 

E8E8* 03 

E8ED| A5 D6 $1 lda xDhist j update history data 

E8EF| 09 01 ora #001 

E8F1| 85 Dé sta xDhist 

E8F3| 4C 97E8 jmp txPkto 7; ~=6©and, try again 

E8F6| 

E8F6| 

E8F6| 3** we have waited min time, check for other guy possibly starting 
E8E4* 10 
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E8DE* 16 

E8F6é| AQ OA txPkt2 Ilda #10. 

E8F8| 78 sel 

E8F9| 8D 0040 sta secCtrl 

E8FC] AD 0040 lda secCtrl 

E8SFF| 58 cli 

E900| 29 cO and #MCmask 7; missing clocks? 

E902| DOE2 bne txDefer 7 yep, defer... 

E904 | 

E904 | 7** ok, it looks like we have line, so go for it 
E904| 78 txPkt3 sei ; disable ints here 

E905| A2 05 ldx #5. 7 enable 422, not Tx 

E907| 8E 0040 stx secCtrl 

E9OA| AQ E2 lda #0E2 

E90C| 8D 0040 sta seccCtrl 

ESOF| 64 Di stz xPt+l 7; kill some time, usefully 
E911] 64 D3 stz xCt+l 

E913] AQ EO lda #0E0 7 then, disable 422 

E915| 8E 0040 stx scecCtrl 

E918| 8D 0040 sta secCtrl 

E91B| A9 03 lda #3 ; finish up params (and MC delay) 
E91D| 85 D2 sta xc 

EQ9IF| AQ 68 lda #RTSfrm 

E921; 85 DO sta xP 

E923! 20 **** jsr txFrame ; finally, our frame 
E926[ 58 eli 7; can allow ints now 

E927 | 

E927 | 2** now, wait for the CTS 

E927| AQ FF txPkt4 Ilda #laCTSwt ; show what state 
B929| 85 AF sta laState 3; we're in 

E92B] 

E92B| A2 02 ldx #2 ; wait 200 usec. 

E92Dj| AO 06 ldy #6. 7; adjust for end of txFrame 
E92F| 20 **** jsr ckIdlel 

£932| BO** bes $1 7; if something in, check it 
E934] AS DB lda xfBcast ; broadcast? 

E936] 30** bmi txPkt5 ; yes, send the laDATA 
E£938| 80** bra txColsn ; else, treat as collison 
R93A| 

E93A| ¢** saw line active; wait a slight time longer in case its to us 
B932* O06 

E93A| A5 DB $1 ida xfBcast 7; are we broadcasting? 
E93C{ 30** bmi txColsn 7 yes, treat as collision 
E93E{ 

E93E| 

E93E| A2 00 ldx #0 ; else, wait some more 

E940| AS AE $3  lda fType 

E942| DO** bne $4 

E944| CA dex 

E945| DOF9 bne $3 

E947| FO** beq txColsn 7; take collision exit 
E949] 

E942* 05 

£949] ¢c9 85 $4 comp #lacTs 7; ours? 
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E94B| FO** beq txPkt5 7 yes, send the data pkt 
E94D| C9 82 cmp #1laACK 7 ACK? 

E94F| FO** beq txPktX 7; =60yes, treat as normal 
E951 | 

E951| 7** txColsn, perform collision processing 

E947* 08 

E93c* 13 


E938* 17 


7/25/91 10:28 AM pcecardrom.1st Page 32 


E951| Cé D5 txColsn dec xCtrys 7 more tries left? 

E953[ 10** bpl $1 7 =6yep 

E955| AQ EE lda #ColsnErr 7 nope, report failure 

E957| 60 rts 

E958 | 

E953* 03 

E958|{ AS D4 $1 Ilda xChist 7 update history data 

E95A| 09 O01 ora #001 

E95C| 85 D4 sta xChist 

E95E| AS D9 lda xLmask 7; increase local mask 

E960{ 38 sec 

E961| 2A rol A 

E962| 29 OF and #00F 7 upto 15 

£964| 85 D9 sta xLmask 

E966| 4C 97E8 jmp txPkt0 7; and, retry 

E969| 

E969] 3** send user's packet here 

E94B* 1c 

E936* 31 

E969| 78 txPkt5 sel 7 we can't be bothered here 

E96A| AS 90 lda txPh 7; setup txFHDR 

E96C| 85 DO sta xP 

E96E| AS 91 lda txPh+t1 

E970| FO** beq $9 7 special case for xINITLAP 

E972| 85 D1 sta xP+1 

E974| A5 92 lda TxCh 

E976| 85 D2 sta xC 

E978| AS 93 lda TxChtl 

E97A| 85 D3 sta xCt+l 

E97C| 20 **** jsr txFHDR ; ok, do first part 

EQ7F | 

E97F | PRR KHIR RR RRR RRR RRR KKK RRR ERR KKK AK RR RRR EK KKK RK RK RRR KK RRR ARK KK KK RRR AK KK 
EQ7F | 7* to save time, and since this is the only routine which sends a 
EQ7E | #* packet, we do the second part here. Note that the txPd/txCd are not 
EQTF | ?* available after this, but that's OK. 

EQ7F 

Sai BRR RK a I RK RK KR KK RR RR KKK RRR KKK KR RK RRR KR RRR REAR RK RRR KK KKK KKK RK KKK RK 
E97F{ AO OO ldy #0 ; offset counter 

E981| A6 96 ldx txcd 7 setup loop 

E983{ DO** bne $1 

E985|[ C6 97 dec txCd+tl 

E987|{ 30** bmi $8 ; if none, skip it 

E989 | 

E983* 04 

E989| A9 04 $1 lda #TBE 3 the secondary loop 

E98B| 2¢ 0040 $2 bit secCtrl 

E98E| FOFB beg $2 
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E990| Bl 94 lda @txPd,y 

E992| 8D 0140 sta sccData 

E995| CA dex 

E996{ DO** bne $3 

E998{ C6 97 dec txCdt+1 

E99A| 30** bmi $8 ; loop exit here.. 

E996* 04 

E99C| C8 $3 iny 7 up offset 

E99D| DOFA bne $1 

E99OF{ E6 95 inc txPdt+1 

E9A1| 80E6 bra $1 

E9A3 | 

E99A* 07 

E987* 1A 

E9A3| 20 **** $8 4Jsr txFFCS ; finish off the data frame 

E970* 34 

E9A6| 58 $9 cli 7 we can allow ints again 

E9A7{ E6 B4 inc TXPct 7; and, up the counter 

E9A9| DO** bne txPktxX 

E9AB| E6 B5 ine TXPct+1 

EQAD | 

E9A9* 02 

E94F* 5C 

E9AD| A9 OO txPktX Ilda #0 ¢ show no error 

E9AF| 60 rts 

E9BO| 

E9BO | FR RII K RR RIK KR RE KKK RRR RRR RR K RAK KR ERK KKK ERK R KKK ARK K EK 
E9BO | 7* txFrame, code to transmit a single frame. The pointer to the frame 
E9BO| 7* is in xP, the count is in xC. In order to share code, txFrame in turn 
E9BO | 7* uses txFHDR to send front, and falls thru to txFFCS to end it. 
E9BO | 7* txPacket uses them also... 

E9BO | FRR IRR RRR RK RK EKER RIK RRR IRE KKK RRR RRR KR KERR RAK RRR KK EKA KKK KR ARKKKK K 
E924* BOEQ 

E6AD* BOE9 

E9BO} 20 **** txFrame jsr txFHDR 7; send header (no secondary) 

noes | BRR R KR RRR RRR RRR RR KR RRR RRR KK RRR RRR RR KKK RRR KEK RRR K KK KKK KR KKK 


E9B3 | 
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E9B3 | 3;* txFFCS, transmit end of frame stuff here 

E9B3 | OOO III IOI GIGS III GIGI GIGI CICICIGIDIGIOI OOOO ICSI ICICI COCO ICICI IKI 
E9A4* B3E9 

E9B3[ UtxFFCS 

E9B3| AD 0040 $1 Ilda secCtrl ; wait for UND 

E9B6| 29 40 and #EOM 

E9B8| FOF9 beq $1 

E9BA] 

EQBA| 7** then, for TBE (-> FLAG is going out) 

E9BA| AD 0040 $2 Ilda secctrl 

EOBD{ 29 04 and #TBE 

E9BF| FOF9 beq $2 

E9C1 | 

E9C1] 3** disable Tx, (but FLAG will continue) 

E9c1| A2 05 ldx #5. 

E9C3| 8E 0040 stx sccCtrl 

E9C6| AQ E2 lda #0E2 3; disables Tx, but leaves 422 on 
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E9Cc8| 8D 0040 sta secCtrl 

E9CB| 

E9CBI 3** delay for the abort sequence 

E9CB| AO 25 ldy #37. 7; s.b. about 16 bit times? 
E9CD{| 88 $3 dey 

E9CE}| DOFD bne $3 

E9DO| 8E 0040 stx secCtrl 

E9D3{ A9 EO lda #0E0 

E9D5| 8D 0040 sta secCtrl ; then, 422 off also 
E9D8| AX 03 lda #3. 

ESDA| 8D 0040 sta seccCtrl 7; vre-arm Rx fast 
E9DD| AQ DD lda #0DD 

E9DF{| 8D 0040 sta secCtrl 

EQE2 | 

E9E2| AQ OE lda #14, ; reset missing clocks 
E9E4| 8D 0040 sta secCtrl 

E9E7| AQ 41 lda #041 

E9E9| 8D 0040 sta secCtrl 

EQEC| 64 AE stz fType 

EQEE| 

EQEE| 60 rts 7 finally, return. 


EQEF | 


ESEF | BORO IIR ROR RIOR TORR RIFT IOFOTO ROR A TOOK RR ROR KR IIR RR AOR IRR RI RK IK 


E9EF { 7* txFHDR, common routine (used by txFrame and txPacket} to initiate 
EQEF | ;* transmission of a frame. This code uses the xP/xC params, which are 


E9EF | 3* shared by both rxIntr and txPacket. 


EQEF | JORDI IOI III III III IIT ICI CICTO ICICI III I IR IK II IIR II IIIT AIK IIA IKK A IKKE 


E9EF | 

E9B1* EFES 

E97D* EFEQ9 

ESEF| AQ 05 txFHDR Ilda #5. 7; start sending FLAGs 
E9F1|] 8D 0040 sta secCtrl 

E9F4| AQ EB lda #0EB 

E9F6| 8D 0040 sta scccCtrl ; enable Tx 

E9F9} A2 20 ldx #rxRst 

E9FB| AO 02 ldy #2 

E9FD| 20 64E0 jsr xSCCB ; disable Rx 

EAOO | 

EAQO| AO 05 ldy #5. + guarantee several FLAGs 
EAQ2| A6é D2 ldx xc ; use X for low end of xc 
EAO4] DO** bne $0 

EAO6| C6 D3 dec xCt1 

EAO4* 02 

EAO8| 88 $0 dey ; delay for the FLAGs 
EAQ9| DOFD bne $0 
EAOB| 

EAOB| Bl DO lda @xP,y 
EAOD| 8D 0140 sta sccData 
EA1O| A9 CO lda #0CcO 
EA12| 8D 0040 sta seccCtrl 7; reset TxUND 

EA15| 80** bra $3 ; merge into loop to account for lst byte 
EA17 | 

EA17 | 7** the main txFHDR loop here. 

EFA17| AQ 04 $1 lda #TBE ; faster loop 

EA19| 2c¢ 0040 $2 bit secCtrl ; wait for TBE 
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get first byte 
and, start transmitting 


Se Ne 


EA1C| FOFB beq $2 

EALE| Bl DO lda @xP,y yj; next byte 

EA20| 8D 0140 sta sccData 

EA23 | 

EAL5* OC 

EA23| CA $3 dex 3; dec xC (done ist to leave earlier) 
EA24| DO** bne $4 

EA26| C6 D3 dec xC+1 

FA28| 10** bpl $4 

EA2A| 60 rts ; exit here at end of header 
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EA2B | 

EA28* 01 

EA24* 05 

EA2B| C8 $4 Any 3; inc xP 

EA2C| DOES bne $1 

EA2ZE| E6 Di inc xP+1 

EA30| 80E5 bra $1 

EA32 | 

EA32 | FOI IR II IOI IO II TOI IOI IOI TOR IO IO III IIR TCI AIR II IK TOR RRR KARR IK RRR TKR KIRK 
EA32 | ¢* ckidle, check for line idle for X * 100 psec. Note: we are assumed 
EA32 | ;* to be running w/ interrupts enabled; hence, we must check fType 

EA32 | ;* in case a frame comes in while polling. C-flag is set if line is seen 
EA32 | ;* busy while we are waiting. 

EA32 | 

EA32 | 3* ckIdlel is an alternate entry to allow callers to "offset" delays 
EA32 [ ;* which occur before ckIdle gets called. 

EA32| POGGIO IOIGIOISI OI GIOIGIOISIOIGICIISIOISIOISIIGIGIOISOCISIOIGISIGICISISISIG ORIG SIGISIGOIGIOIGGIGI IG GIG GCG Cr 
E8E2* 32EA 

E8D6* 32EA 

E8C3* 32EA 

EA32 | ckIdle ;** main entry point for full counts 

EA32| AO 09 ldy #9. 7 loop counter (~100 uSec worth) 

E930* 34EA 

FA34 | ckIdlel ;** alternate (user pre-loads Y) 

EA34| AD 0040 lda sccCtrl 7 check for HUNT 

EA37| 29 10 and #HUNT 

EA39| FO** beq $9 7 busy exit 

EA3B| A5 AE lda fType 

EA3D| DO** bne $9 7; something snuck in 

EFA3F| 88 dey 7 100 psec? 

EA40| DOF2 bne ckIdlel 7 nope 

EA42| CA dex 7; ~=6yes, waited long enough? 

EA43| DOED bne ckIdle 7 nope 

EA45| 18 cle ;))«6yes, set to show it's ok 

EA46| 60 rts 

EA47| 

EA3D* 08 

EA39* OC 

EFA47| 38 $9 sec ; line is busy 

EA48| 60 rts 

EA49 | 

EA49 | ORF TOR I FO I ROR RO IR RK ROR RR IR KR RK IK KK KOK RK RK ROR RK RR KR KR RRR RK EK KR 
EA49 | 7* bitCount, simple procedure to return # of 1's in A. 

EA49} ORI FO TOR IIR RR ICRI ORR IORI I OK IO FOR III KIKI IK RIOR TOR OR KIRK ROR ITOK RK RR RK KK 
E86E* 49EA 

E85A* 49FA 
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EA49 | bitCount 7** bitCount, count # bits in A reg 

EA49| 85 01 sta tl save for shifts 


clear count 

next bit out 
done? 

nope, accumulate 


EA4B| A 00 lda #0 
EA4D| 46 01 $1 l1sr tl 
EA4F| FO** beq $2 
EA51| 69 00 adc #0 
EA53| DOF8 bne $1 
RA4F* 04 

EA55S!] 69 00 $2 adc #0 
BEA57} 60 rts 
EA58 | 

EA58 | FORO IROIIICIRI CK I TOI TORII KO IRR I ORR ROR ROR ROR ACK CR ICR KOK a Ok A Ok 
EA58 | 

EA58 | ;* Random, common routine to update xSeed w/ next psuedo-random value. 

EA5S8 | ;* note that t0/tl and xSeed(+1) are treated as hi/lo bytes 

EA58 | ORCI III II III SII III ICICI ICI IO ICICI RCI IIR IKK Kk 
E898* 58EA 

EA58| A5 DF Random lda xSeedtl 

EA5A| 85 00 sta tO ¢; tO := xSeed * 256 

EA5C| 85 OL sta tl 7; (saves time below) 

EA5SE| OA aslA 

EA5F| 18 cle 

EFA60| 65 00 adc t0 ; A= xSeed * 768 

EA62| 18 cle 

EA63| 65 DE adc xSeed 

EAGS| 85 00 sta t0 7; t0O,tl := xSeed * 769 

EA67 | 

EFA67| O06 DF asl xSeedt1l 

EA69| 26 DE rol xSeed 

EA6B| O06 DF asl xSeedt1 

EA6D| 26 DE rol xSeed 3; xSeed := xSeed * 4 

EA6F| 18 cle 

EA70{} AS O01 lda tl 

EA72{ 65 DF adc xSeed+1 

EFA74{ 90** bee $1 

EA76| E6@ DE inc xSeed 

EA78| 18 cle 

EA74* 03 

EA79| 69 07 $1 adc #7 


“se Se Se Ne Ne 


add in last one 


=e 
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EFA7B| 85 DF 
EA7D{ A5 00 
EA7F{ 65 DE 
EA81|[ 85 DE 
EA83| 60 
EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 

EA84 | 
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FA84 | 

EFA84| AO OF 
EFA86| Bl 14 
EA88} 20 **** 
EA8B| BO** 
EA8D| 4C CDE4 
EA90 | 

EA8B* 03 
EA90| AO 11 
EA92| Bl 14 
BA94| C9 03 
EA96[| DO** 
EA98| AQ 10 
EAQA| 24 30 
EA9C| DO** 
EAQE| 4c **** 
EAA1 | 

EA9C* 03 
EA96* 09 
FAA1} AO 10 
EAA3| 80** 
FAAS | 

EAA5 | 

EAAS | 

EAA5 | 

EAA5 | 

EAA5| AO 07 
EAA7{| Bl 14 
EFAA9| C9 O1 
EAAB | 

EAAB| FO** 
EAAD| 20 **** 
EABO| BO** 
EAB2| 4C CDE4 
EABS | 

EAAB* 08 
EAB5| 4c **** 
EABS8 | 

EABO* 06 
EAB8| AO 09 
EABA| Bl 14 
EABC| C9 03 
EABE| DO** 
EACO| A9 10 
EAC2| 24 30 
EAC4| DO** 
EAC6| 40 **** 
FAC9 | 

EAC4* 03 
EABE* 09 
EAC9| AO 08 
EACB| 

EAA3* 26 
EACB | 

EACB| A2 00 
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EACD| A9 24 
EACF| 20 **** 
EAD2| 4C CAE4 
EADS | 

EAD5 | 

EADS | 

EAD5 | 

EAD5 | 

EADS | 

EADO* D5EA 
EADS | 

EAD5| DA 
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sta xSeed+1 

lda tO 

adc xSeed 

sta xSeed ; xSeed := xSeed * 773 + 7 
rts 7; leave upper byte ready to use 


OIG IOI O OIG GIO IICI GIG OICI GCI ODOC III IIH 
¢**EOF PCLAP 


-include 
PCDDP, 


PCDDP ; Directed Datagram Protocol handler 


pure code to handle Directed Datagram Protocol stuff 


ORR RI RO IO IGT IOI ICO IO IO ICICI IO IOI IOI COIR TOR RIOR ICR OR TOK IO IO 


;* xXRXDDPX, receive DDP (eXtented) packet. 
FILE: PCDDP.a65 PCcard - firmware for IBM-PC AppleTalk 


OCI III TO III III ICI ICO ICO RI II IOI ITOK AOR TORR TOK KK KK 
xRXDDPX ldy #laDatatxdDsktt+2 ; index into header 


lda @rtP,y 7 socket 
jsr chkDDP 7; OK? 
bes $1 
jmp RCVtask 7 nope, error 
$1 Ildy #laDatatxdTypet+2 ; if this is ATP 
lda @rtP,y 
cmp #ddATP 
bne $2 
lda #f£NATP 7; user want it? 
bit SysFlgs 
bne $2 7; yes, handle as DDPX 
jmp xRXATPX 7; else, process it 
$2 l1dy #laDatat+xdData 7; front-end size 
bra xRXDDP1 


FORO OR IRI RIOR TOR TIO TOR I RII TOR IK ROR IIR RIK RK RR OK RK RK RRR RRR KK RK 


:* xRXDDP, receive DDP (short) packet. We perform special check here for 


;* RTMP; not needed in DDPX, as only short DDP is used for RTMP. 
POR IR R IR RR  R K IOKR RK IRR IK IO KK IK OK RR RRR RK RR RRR RR IKK IO RRR KK RR IK OR KR KK 


XRXDDP ldy #laDatatddDskt+2 7 index into header 

lda @rtP,y 7 pickup socket 

cmp #rtmSKT ; is this a special one? 

beq $1 

jsr chkDDP ; check socket entry 

bes $2 ; its ok, process rest 

jmp RCVtask ; and, ignore; just restart RCVtask 
$1 jmp xRXRTMP 7; its an RTMP socket, process it 
$2 ldy #laDatat+ddType+2 7; if this is ATP 

lda @rtP,y 

cmp #ddATP 

bne $3 

lda #f£NATP 7; user want it? 

bit SysFlgs 

bne $3 7; yes, handle as DDP 

jmp xRXATP ; then, process it 
$3 ldy #laDatat+ddData 7 length of DMAinfo packet 
xRXDDP1 7** entry for xRXDDP/xRXDDPX 

ldx #0 ; RID, O for DDP 

FILE: PCDDP.a65 PCcard - firmware for IBM-PC AppleTalk 

lda #024 7; else, Host FC for rxDDP 

jsr RXDDP1 7 use common code 

jmp RCVfree 7; ~=©and, merge 
DORR RIOR TOR IR IOI ROR IR RRR TOK ROI TOI TOK ORR TR RK RIOR RK KKK KOR ROR KR KOR ROR RK IR FOR IK RR KK 
o* 


i RXDDP1, acquire DMA and transfer our packet data. 

;* A has Host FC, Y has front-end length, xX has RID (0 for RXDDP). 

;* Note: we return to caller for post-transfer stuff (ATP). 

OR RI III R ROR TOI TOR TOR TOR TOIT III FRR KOK TOK TR RK KKK RK RIK RIK IR RAIA IK IKI HK RK HK 
RXDDP1 

phx ; 


7** entry from DDP/ATP 
save params 
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EAD6| 48 pha 

EAD7| 5A phy 

EAD8| 84 00 sty tO 7; save for computation 

EADA| AO O1 

EADC| 38 sec 

EADD| B2 14 lda @rtP 

EADF| E5 00 sbe tO ; (minus front-end) 

EAE1| 48 pha ; save for dc 

EAE2] Bl 14 lda @rtP,y 

EAE4| E9 00 sbc #0 

EAE6| 48 pha 

EAE7 | 

EAE7| A2 74 ldx #DMAlock 7; acquire DMA 

EAE9| 20 CCEL jsr semaP 

EAEC| AY CO lda #DMAinfo ; tell what we want 

EAEE| 20 24E4 jsr waitDMA 

EAF1] 

EAF 1 | 7** now, setup for DMA transfer, and do front-end 

EAF1| 68 pla ; setup dc for later 

EAF2| 85 1B sta dc+l 

EAF4| 68 pla 

EAF5| 85 1A sta dc 

EAF7| FA plx ; front-end looper 

EAF8| 68 pla 7 FC 

EAF9| 8D 0080 sta DMAreg 

EAFC| 68 pla 7; RID (O for DDP) 

EAFD| 8D 0080 sta DMAreg 

EBOO| 

EBOO| i** copy header during DMAinfo state., 

EBOO| AO 02 ldy #2 ; skip over rtP 

EBO2| Bl 14 $1 lda @rtP,y 

FBO4| 8D 0080 sta DMAreg 

EBO7| c8 iny 

EBO8[| CA dex 

EBO9| DOF? bne $1 

EBOB | 

EBOB| :** now, setup dP for common path 

EBOB| AS 1A lda dc ; check if any DMAdata state needed 
EBOD| 05 1B ora acti 

EBOF| FO** beq $9 7; if not, skip it 

EB11] 

EB11| 18 cle 

EB12| 98 tya 7; else, set dP 
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EB13| 65 14 adc rtP 

EB15| 85 18 sta dP 

EB17{ AS 15 lda rtPtl 

EB19| 85 19 sta dP+1 

EB1B| 

EB1B| ¢** now, copy the packet (note: dc has already been setup) 
EB1B|] A9 DO lda #DMAdata ; show ready for data now 

EB1D| 20 24E4 jsr waitDMA 

EB20| 

EB20{ 20 8DE4 jsr wrDMA z do it 

EB23| 

EBOF* 12 

EB23| 60 $9 rts 7; and, we're ready for more 

EB24| 

EB24 | JOP I R GR IO IIIIIO IGIICIITOICIIOIOI ICICI IGRI CR IOI TO ICT ORCA TOK A TOR ITOK AIK HK 
EB24 | ;* xXOPNSKT, open (register) a socket #. (Host FC=$21). 
EB24 | FOF CTOII IO IOI III ITO IIR I IIR TOR TOK KK KK ARKH RK IRR 
EB24 | 

EB24| AD 0080 xXOPNSKT lda DMAreg ; pickup user param 

EB27| 20 **** jsr chkSKT 7 lookup 

EB2A| BO** bcs OPNCLSe 7 error 

EB2c| 1D 4001 ora SKTtbl,x ; else, add it 

EB2F | 

EB2F| 9D 4001 OPNCLSx sta SKTtbl,x 7; update table byte 

EB32| A9 OO lda #0 ; show no error 

EB34| 4¢ 4553 jmp CMDdone ; and, merge 

EB37| 

EB37{ OI II ICI I IOI ISI ICIGIOIGIICICIOISIIGICICICICI SII CITIGI ICICI ICICICICIGIGI ICICI ICICI ITO ITO I 
EB37 | 7* xXCLSSKT, close (un-register) a socket #. (Host FC=$22) 
EB37 | ORCI IR ROR ICRI TIGR I ORIG ICOR IIC IGRIOR ROO ACTOR ROI ICRI TO ITO ROOK TOO A OK OK 
EB37| AD 0080 XCLSSKT lda DMAreg 7 get param 

EB3A| 20 **** jsr chkSKT 7 is it open? 

EB3D{| 90** bec OPNCLSe 3; no, error 

EB3F| 5D 4001 eor SKTtbl,x 7 yes, remove it 

EB42| 80EB bra OPNCLSx 

EB44 | 

EB3D* 05 

EB2A* 18 

EB44} AQ O1 OPNCLSe lda #SKTerr 7 error processing 

EB46{ 4C 45E3 jmp CMDdone 

EB49| 

EB49| DOIG IIIS ICIS ISIS IIIS ISIS CI SISISIIISIGIISIGIIIISIGI IOI CIISISIGISIGISIBISIGISITITIGISIGSIOIS IIS I 
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EB49| ;* chkDDP, check DDP length, then fall thru to chkSKT. cC is clear if 


EB49| 7* length is not OK (or if chkSKT doesn't find socket). 
EB49| BORIC ICICI IO IOI GIG ICICI IGICIGIOI ISI ICIOIGII ICICI III ICICI ICO IT IOI AIK 
EAAE* 49EB 

EA89* 49EB 

EB49| 48 chkDDP pha 3; save socket# for chkSKT 

EB4A| AO OO ldy #0 7 compute LAP-3 

EB4c| 38 sec 

EB4D| Bl 14 lda @rtP,y 

EB4F| cs iny 

EB50| E9 03 sbc #3 

EB52{| 85 00 sta t0 

EB54| Bl 14 lida @rtP,y 
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EB56[ E9 OO sbc #0 

EB58| 85 O1 

EBSA| 

EB5A| AO 05 ldy #laDatat+tddLng+2 3; check on DDP length vs LAP length 
EB5C| Bl 14 lda @rtP,y 

EBSE| C8 iny 

EBSF| 29 03 and #003 7; mask hop 

EB61| C5 O1 cmp t0+1 3; check it' 


EB63| DO** bne $69 
EB65| Bil 14 lda @rtP,y 
EB67{ C5 00 cmp t0 
EB69| FO** beq $8 
EB6B| 

EB63* 06 

EB6B| 68 $69 pla 

EB6C| 18 cle 

EB6D| 60 rts 

EB6E] 

EB69* 03 

EB6E| AQ 08 $8 lda #fADDP 7 accept all DDP? 
EB70| 24 30 bit SysFlgs 
EB72| FO** beq $9 
EB74{ 68 pla 

EB75{ 38 sec 

EB76| 60 rts 

EB77| 

EB72* 03 

EB77| 68 $9 pla ; pull socket# for chkSKT if ok 

EB78 

a PRI TO IR IR RRR IR RR RRR ROK IR ROR ROR FOR TORR RI TOK KR KR KR RK RR RK RK RR RK RK RRR RRR RRR RK RR KEK 


EB78 | ;* chkSKT, lookup socket (in A), does BIT here, leaves 2 set. 

EB78 | UCI RR RIOR OR I ROR I TIO TORR FOR TOO ROTOR ITOK ITO I FOI TOR I TOR I TOR RRR ROK ITOH REA RRR ERIK EK 
EB3B* 78EB 

EB28* 78EB 

EB78| A8 chkSKT tay ?; save socket 

EB79| 4A isr A shift off offset 

EB7A| 4A lsr A 

EB7B| 4A lsr A 

EB7C| AA tax X is offset into SKTtbl 

EB7D| 98 tya get protocol back 

EB7E| 29 07 and #007 7 bit# 

EB80| A8 tay 

EB81| B9 4BEO lda BITS,y 7 get bit mask 

EB84 | 

EB84{ 18 clic ; assume not there 

EB85| 3c 4001 bit SKTtbl,x 2 test current bit 

EB88| FO** beq $9 7; exit Lf not 

EBB8A | 

EB8A| 38 $8 sec 7 else, show present 

EB88* O1 

EB8B| 60 $9 rts 

EBS8C } 

EB8C| JOG GIOSIGIISISIGISIIOIDIOISISITIOIDISISISISIGISISISISISI GIGI SI CIOISI GIGI IGIOIGISIOCISIGICIGICI CISC CIICI OID IE 
EBS8C | 

EBS8C | ;* xTXDDP, transmit DDP packet. (Host FC=$23) The single entry reads 
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continue if OK 


“= 


pop saved param 
show, not-OK 
and, return to caller 


Ne Me Ne 


no, proceed to check SKT 


“se 


else, show OK 


“ae 


“se 


seoMe 


EBSC | 7* a packet formatted to assume DDPX header. If checks prove that the node 
EB8C | ;* exists on our link (the normal case!), the header will be modified to 
EB8&C | 7* that of a DDP. 

EB8C | 7* Note, a code of $27 acts as $23, except that the transmission is 

EBSC | 3* retried. This is designed to help support NBP. 

EB8C | ;* Also, a code of $2B acts as $23, except that the checksum fleld will 
EB8C | 3* be filled in. 

EB8C | FOR I IO RICCI ROI I ROI ICRA CIR ROR RTO IO AITO KK RIOR RIK RHA RRR RR RK 
EB8C | xSNDNBP z*** alternate name for NBP command 

EB8C| A5 CC lda nbTTP 7; one in progress? 

EB8E| FO** beq xTXDDP 7; no, continue 

EB90 | 

EB90| AQ FF SNDNBPe lda #REQerr 7; flag error 

EB92| 4C 4553 jmp CMDdone 
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EB95| 


EBDC | 
EBDC| 
EBDF | 
EBE1 | 
EBE4 | 
EBE6| 
EBE6| 
EBE6 | 
EBE8 | 
EBEA| 
EBEC | 
EBEC | 
EBEF | 
EBF1 | 
EBF3| 
EBF6| 
EBF8 | 
EBFA| 
EBFC | 
EBFC | 
EBEA* 
EBFC | 
EBFE| 
ECOO| 
ECO1| 
ECO3 | 
ECOS| 
ECO5 | 
ECO5 | 
ECO7 | 
ECO9 | 
ECOB| 
ECOD | 
ECOF | 
ECO7* 
ECOF | 
EC1i1| 
EC13| 
EC15| 
EC15| 
EC16| 
EC18 | 
EC1A] 
EC1C| 


EB8E* 05 
EB95| 

EB95| 20 85E5 
EB98| AS 18 
EB9AjS 85 04 
EB9C| A5 13 
EB9E| 85 05 
EBAO| AO 05 
EBA2| A2 00 
EBA4| 91 02 
EBA6| c8& 
EBA7| 91 02 
EBA9| c8 
EBAA| AD 0080 
EBAD{| 91 02 
EBAF| C8 
EBBO| AD 0080 
EBB3] 91 02 
EBB5{ C8 
EBB6| A5 OC 
EBB8 | 

EBB8| 91 02 
EBBA| C8 
EBBB| A5 OD 
EBBD| 91 02 
EBBF| C8 
EBCO| AD 0080 
EBC3{ 91 02 
EBC5| C8 
EBC6| A5 69 
EBC8| 91 02 
EBCA| C8 
EBCB| AD 0080 
EBCE| 91 Q2 
EBDO| c8 
EBD1| AD 0080 
EBD4|{ 91 02 
EBD6| C8 
EBD7{ AD 0080 
EBDA| 91 02 
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AD 0080 
85 1A 
AD 0080 
85 1B 


AS 12 
co 27 
DO** 


AD 0080 
85 CD 
FO9D 

AD 0080 
co FF 
F096 

85 CE 


10 

AO 07 
Bl 02 
cB 

11 02 
FO** 


A5 OB 
DO** 
AS 0C 
05 OD 
FO** 


06 
Bl 02 
c5 OD 
DO** 


88 

Bl 02 
c5 OC 
FO** 


PCCARD 


xRTXDDP 


jsr 
lda 
sta 
lda 
sta 
ldy 
lda 
sta 
iny 
sta 
iny 
lda 
sta 
iny 
lda 
sta 
iny 
lda 


sta 
iny 
lda 
sta 
iny 
lda 
sta 
iny 
lda 
sta 
iny 
lda 
sta 
iny 
lda 
sta 
iny 
lda 
sta 


FILE: 


kk 


$0 


kk 


$1 


lda 
sta 
lda 
sta 


4f its a $27, pickup interval and tries 


lda 
cmp 
bne 


ida 
sta 
beq 
lda 
cmp 
beq 
sta 


check on correct type (use DDP/DDPX) 


ldy 
lda 
iny 
ora 
beq 


check on validity of aBridge & ThisNet 


lda 
bne 
lda 
ora 
beq 


lda 
cmp 
bne 


dey 
lda 
cmp 
beg 
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7** entry from CMDtask 
xTXPKTA 7 allocate buffer 
dP save copy of buffer 
t4 
aP+l 
t4+1 
#laDatat+xdCKS 7 copy stuff for our assumed long header 
#0 ; assume no checksum, zero xdCKS 
@t2,y 


me 


@t2,y 


DMAreg xdDnet 


@t2,y 


“se 


DMAreg 
@t2,y 


ThisNet xdSnet 


“a. 


@t2,y 


ThisNet+1 
@t2,y 


DMAreg xdDnode 


@t2,y 


=. 


myNode xdSnode (me!!) 


@t2,y 


= 


xdDskt 


™e 


DMAreg 
@t2,y 


DMAreg xdSskt 


@t2,y 


me 


DMAreg 7 xdType 
@t2,y 
PCDDP.a65 PCcard - firmware for IBM-PC AppleTalk 


DMAreg ; DDP data size 
ac 7; save for rdDMA 
DMAreg 

dc+1 


PCREQ 7 normal? 

#027 7; TXNBP? 

$0 7; ~=no, skip 

DMAreg 7 else, pickup extra data 
nbTmOut 7; interval 

SNDNBPe 7; error if invalid 
DMAreg 

#OFF ; check on “infinite” 
SNDNBPe 

nbRtrys 7 tries 


#laDatatxdDnet 
@t2,y 


@t2,y 
TXDDP ; if Dnet is 0, use short 


aBridge 7 bridge present? 

$1 ; if so, ThisNet must be valid 
ThisNet 

ThisNet+1l 

TXDDPX 7; if null net, send long one 
@t2,y 

ThisNettl ; else, it is same as me? 
TXDDPX 7; whoops, use long (fill in rest) 
@t2,y 

ThisNet 

TXDDP 
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EC1c| y** finish building TXDDPX header 
EC13* O7 


ECOD* OD 

ECIc| A5 OB TXDDPX ida aBridge 

EC1E| DO** bne $1 : if valid, use it 

EC20| AO OB ldy #laData+xdDnode ; else, from caller's 
EC22| Bl 02 lida @t2,y 

EC24 | 

EC1E* 04 

EC24{ AO 00 $1 Ildy #laDst 

EC26| 91 02 sta @t2,y 
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EC28| AQ OD lda #xdData ; size of DDP header 

EC2A| A2 02 ldx #laDDPX 7; type of header 

EC2c| 80** bra TXDDP1 7; and, share code 

EC2E| 

EC2E] ;** whoopee, we can use short data, so fill in the rest of the stuff 
EC1A* 12 

ECO3* 29 

EC2E| AO OF TXDDP ldy #laData+xdType 3; copy common stuff to stack 
EC30| Bl 02 lda @t2,y 7; xdType 

EC32| 88 dey 

EC33| 48 pha 

EC34| Bl 02 lda @t2,y ; xdSskt 

EC36| 88 dey 

EC37| 48 pha 

EC38| Bl 02 lda @t2,y 7 xdDskt 

EC3A| 88 dey 

EC3B| 48 pha 

EC3C| 88 dey 

EC3D{ Bl 02 lda @t2,y ; xdDnode (our locat laDst) 
EC3F | 

EC3F | 7** build LAP/DDP header (partially) 

EC3F| AO 00 lidy #laDst 

EC41{ 91 02 sta @t2,y 

EC43] AO 05 ldy #laData+ddDskt 7; copy sockets, type 
Ec45| 68 pla 

EC46] 91 02 sta @t2,y 7 ddDskt 

EC48[ C8 iny 

Ec49{ 68 pla 

EC4A| 91 02 sta @t2,y 7; ddSskt 

Ec4c{ cs iny 

EC4D{ 68 pla 

EC4E[ 91 02 sta @t2,y 7 ddType 

EC50| A9 O05 lda #ddData ; header size 

EC52{ A2 01 ldx #laDDP - sy type 

EC5A| 

EC54 | 7** adjust dc for our remaining (DDP data packet) length 
EC2C* 26 

EC54 | TXDDP1 7** common path for TXDDP/TXDDPX 
EcC54| 85 00 sta t0 7; save header size 

EC56| AO O01 ldy #laSrc 

EC58| AS 69 lda myNode 7; complete header 

EC5A| 91 02 sta @t2,y ; laSrc (myNode) 

EC5C| 

ECSC| C8 iny 

EC5D| 8A txa 

ECS5SE| 91 02 sta @t2,y ; laType 

EC60| Cc8 iny 

EC61| 18 cle 

EC62| A5 1A lida dc 

EC64{ 65 00 adc t0 ; adjust by DDP header size 
EC66| AA tax 

EC67| AS 1B lda dc+i 

EC69| 69 OO adc #0 

EC6B| 91 02 sta @t2,y 7 ddLng 

EC6D| C8 iny 
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EC6E| 8A txa 

EC6F| 91 02 sta @t2,y 

EC71] 

EC71| 7** setup params to xTXPKTX and merge 

Ec71| 18 elc 

EC72| AS 00 lda tO ; A= DDP header size 

EC74| 69 03 adc #laData ; A= LAP + DDP header size 
EC76| 48 pha 7; save total length 

EC77 | 

EC77| 3** check if this is $23 (TXDDP) or $27 (TXNBP) 
EC77| A5 12 lda pcREQ 

EC79| ¢9 27 cmp #027 

EC7B| DO** bne $1 

EC7D}] 4C **** jmp TXNBP ; do it w/ retries 
EC80| 


EC80 | OC III IOI IOI ITO ITO ICICI III IIR I IORI CIR RICO ACTOR ICTR OR AOR RIOR IORI R IK ITOK IK Kk 


TT 
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EC80| 7* code copied from xTXPKT. We do it here so that we can decide to 
EC80| :* compute checksum after acquiring the DDP packet's data 
EC80 | FOR I III IDI GIGI IOIOI I CIOICIOI ICI II ICICI ICICI II OR III IR ITI IK IH 
EC7B* 03 

EC80| 68 $1 pla y else, normal (1l-shot) 

EC81| A2 40 ldx #CMDtcb 7 set param for xTXPKTD 

EC83| 20 2BE8 jsr xTXPKTD ; acquire the packet's data 

EC86] 

EC86]| 3** check on whether CKS is desired. 

EC86| A5 12 lda pcREQ ?; pickup function code 

EC88} C9 25 emp #025 3 set? 

EC8A| DO** bne $2 ; nope, skip it 

EC8Cc| AO 02 ldy #laType 

EC8E| Bl 02 lda @t2,y ; is it DDPX? 

EC9O{ C9 02 cmp #laDDPX 

EC92| FO** beg docKS 7 yes, compute it 

EC94 | 

EC8A* 08 

EC94| 4C **** $2 jmp TXDDP2 ; else, skip it 

EC97 | 

EC97 | 

EC97| FOG ISI SITIOS GIGI GIGIOISIGISISISI TIO CIS OIISISIEICISIGIIGIISISIGISIGISIGISIGICIGIBIC IGG IGG IO IG IOI 
EC97 | ;* Compute the CKS over our header, etc. Note that because we can take 
EC97 | 3* a while to do the computation, we will let other tasks have a crack at 
EC97 | 7* the system. 

EC97| 7* During the calculation: 

EC97| 3* tO is CKS 

EC97 | y* t2 is header ptr 

EC97| i* t4 is data ptr 

EC97| i* t6 is data lng 

EC97} ORR II FOI III III IORI TOI III IOI ICICI ICI IOI ICTR ICI ITO TO TOIT TORK 
EC92* 03 

EC97| 20 F7E1 docKs jsr Yield 7 and, give up control 

EC9A] AS 44 lda CMDBufN 7; compute addresses agin 

EC9C| A2 04 ldx #t4 

EC9OE| 20 44E2 jsr cvtBufN 

ECA1| 18 cle 7 set t2 = header 

ECA2| A5 04 lda t4 

ECA4| 69 68 adc #HDROFS % 0100 
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ECA6| 85 02 sta t2 

ECA8| AS 05 lda t4+1 

ECAA| 69 02 adc #HDROFS / 0100 

ECAC| 85 03 sta t2+1 

ECAE | 

ECAE | 7** start checksum over DDP header 

ECAE| 64 00 stz tO 7 CKS.hi = 0 

ECBO| A2 09 ldx #xdData-xdDnet 7 size of header 

ECB2| A9 00 lda #0 7; CKS.lo = 0 

ECB4| AO 07 ldy #laData+xdDnet ; offset to start checksum at 
ECB6| 

ECB6| ckHdr 7** header checksum loop, A=CKS.1lo 

ECB6| 18 $1 cle 

ECB7[ 71 02 ade @t2,y 7; next header byte 

ECB9| 90** bec $2 

ECBB| E6 00 inc tO 3} carry out to CKS.hi 

ECB9* 02 

ECBD| OA $2 asl A 

ECBE| 26 00 rol tO 

ECCO| 90** bec $3 

ECC2| 1A ina 

Ecco* QO1 

ECC3{ C8 $3 iny 7; adjust ptr 

ECC4| CA dex 7 count down 

ECC5| DOEF bne $1 

ECC7| 85 O01 sta tl ? save CKS.1lo 

ECC9 | 

ECC9| ;** setup ptrs, etc. for data stuff 

ECC9 | 

ECC9| AO 02 ldy #2 

ECCB| Bl 04 lda @t4,y 7 get data count 

ECCD| C8 iny 

ECCE| 85 06 sta t6é 

ECDO| Bl 04 lda @t4,y 

ECD2| 85 07 sta tétl 

ECD4 | 

ECD4| 7** setup rest of ckData loop 

ECD4| 18 $4 cle 

ECD5| A5 04 lda t4 

ECD7| 69 04 adc #4 7 ptr to data 

ECD9| 85 04 sta t4 

ECDB{| A6é 06 ldx t6 ; count (low) 

ECDD] DO** bne ckData 7 enter odd loop 

ECDF| C6 07 dec t6+1 7; else, adjust for even 256 
ECE1| 10** bpl ckData0d ; Af not null, enter 256 count loop 


ECE3} AS Ol lda tl 7; else, reload CKS.lo 
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ECE5| 80** bra stCKS ? and, skip to store {null data) 
ECE7 | 

ECDD* 08 

ECE7 | ckData ;** data checksum loop for mod 256 odd counts 
ECE7| AO OO ldy #0 ; make sure of index 

ECE9| AS 01 lda tl 3; re-load low-byte of current CKS 
ECEB| 18 $1 elc 3; the loop!!! 

ECEC| 71 04 adc @t4,y 3; add value 

ECEE| 90** bec $2 
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ECFO| E6 00 inc t0 

ECEE* 02 

ECF2| OA $2 aslA ; rotate it 

ECF3| 26 00 rol t0 

ECF5| 90** bec $3 

ECF7| 1A ina 

ECF5* O1 

ECF8| C8 $3 iny 

ECF9| CA dex 

ECFA| DOEF bne $1 

ECFC| C6 Q7 dec t6t+1 7 any more? 

ECFE| 30** bmi stCKS 7 no, simply store here 

EDOO| 85 O01 sta tl 7 save CKS.lo 

EDO2 | 

EDO2 | :** having taken care of odd counts, adjust t4 and entry 256 count loop 
EDO2| 18 cle 7; adjust t4 for 256 count loop 

EDO3| AS 04 lda t4 7; current ptr 

EDO5| 65 06 adc t6 7; add offset handled above 

EDO7| 85 04 sta t4 

EDO9| 90** bec ckDatad ; skip if we didn't overflow 
EDOB! E6 05 inc t4+1 3; =6©else, adjust hi byte 

EDOD] 

EDO9* 02 

ECE1* 2A 

EDOD } ckDataO ;** data checksum loop when we have taken care of odd front end. 
EDOD | 

EDOD| AO OO ldy #0 7; make sure of index 

EDOF| A5 O1 ida tl 7 re-load CKS.lo 

ED11]| 18 $1 cle 7 the loop!!! 

ED12{ 71 04 ade @t4,y ; add value 

ED14| 90** bec $2 

ED16| E6 00 ine t0 

ED14* 02 

ED18| OA $2 aslA ; rotate it 

ED19| 26 00 rol to 

ED1B| 90** bec $3 

ED1D| 1A ina 

ED1B* O01 

EDIE| c8 $3 iny ; advance ptr (also loop counter!) 
ED1IF| DOFO bne $1 

ED21| Fé O05 ine t4+1 ; adjust carry over 

ED23| Cé O07 dec t6+1 7; major loop counter 

ED25| 10EA bpl $1 

ED27 | 

ED27 | ;** checksum is done; A=CKS.lo, t0O=CKS.hi store it 

ECFE* 27 

ECE5* 40 

ED27| AO 06 stCKS ldy #laData+xdcKS+l 

ED29| 91 02 sta @t2,y 3; CKS.1lo 

ED2B| 88 dey 

ED2c| AS 00 lda tO 

ED2E| 91 02 sta @t2,y 3; CKS.hi 

ED30| 

ED30 | DOI ICICI IO IOICIDII III CII ICICI CIRC TO IOC ICR RC TOO OKT RIK RK RK 
EC95* 30ED 
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ED30| TXDDP2 ;* queue the packet and wait for it to go out.. 
ED30| AS 44 lda CMDBufN 

ED32| 64 40 stz CMDFlgs ; clear other flags 

ED34| 20 8082 jsr putXmit 

ED37| 

ED37| AY 04 ida #sTXDONE 7 show what we're waiting on 
ED39| 20 64E1 jsr Wait 

ED3C | 

ED3c{| AS 44 lda CMDBufN 7 get our buffer number back 
ED3E| 20 73E2 jsr putFree 7; add it back to free list 

ED41| 4¢C 4CE3 jmp CMDstat 7; and, we're done... 

ED44 | 

ED44 | BORO ROIO FOR I O RRR RRR OI ROR III OR RK TOI RRR OK TOR FOR ROK RR RICK RRR IIR RIO IK RR KICK RK HK 
ED44 | 7* TXNBP - This section handles the setting up of ATP block. The rest 
ED44 | 7* of the processing for SNDNBP is performed by ATP task. 
ED44 | ;* NOTE: THE FOLLOWING CODE WAS ADDED DURING -B ECO, 
ED44| 


ED44[ FRR IIR ITI RRR ROR IRR ROR RR TOTO FOR ITO I TOR IR KR FR RR KR RR RRR TORK RR RR HIKE KK KK 
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EC7E* 44ED 

ED44 | TXNBP ;*** entry upon recognizing NBP type send 
ED44| A6é E8 ldx lstTTP ; start from last one allocated. 

ED46| BD 0002 $1 Ilda ttState,x 7; this one busy? 

ED49| FOQ** beq txnl 7; no, we have one 

ED4B| 8A txa 3 else, advance thru table 

ED4c| 18 cle 

ED4D| 69 OD adc #TTSIZE 7; by incrementing by table entry size 
ED4F| DO** bne $2 ; skip if not at page boundary 

ED51| A9 09 lda #TTBASE % 0100 ; else, start at front 

ED4F* 02 

ED53{ AA $2 tax 

ED54| CS E8 cmp lstTTP ; have we gone around all the way? 

ED56| DOEE bne $1 ; no, keep looking 

ED58| 

ED58 | 3;** we haven't found a free one; signal error to CMD caller. 
ED58| 68 pla ; pop header size 

ED59| A9 FE lda #NoFreeErr 

ED5B] 4¢ 45E3 jmp CMDdone 7; and, thats it 

ED5E| 

ED5E | 7** having found a table, setup the request stuff. 

ED49* 13 

ED5E| 86 E8 txnl stx lstTTP : save for others 

ED60| 86 cc stx nbTTP 7; ~=~©and us, later 

ED62| AY 46 lda #SENDNBPn ; its state (temp, to hold) 

ED64| 9D 0002 sta ttState,x 

ED67]} AS 47 lda CMDRID 7; our request ID 

ED69| 9D 0102 Sta ttRID,x 

ED6C| A5 CD lda nbTmOut 

ED6E| 9D 0502 sta ttTmOut,x 

ED71| AS CE lda nbRtrys 

ED73[ 9D 0602 sta ttRtrys,x 

ED76| AS 44 lda CMDBufN ; the buffer to use 

ED78|] 9D 0402 sta ttBufN,x 

ED7B| 

ED7B| 7** now, acquire rest of this data 

ED7B| A2 58 idx #ATPtcb ; param for buffer 
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ED7D | 

ED7D| 68 pla 7; length of header 

ED7E| 20 2BE8 jsr xTXPKTD ; use shared code 

ED8i | 

ED81| A6 CC ldx nbTTP 7; get our ptr back 

ED83| A9 40 lda #SENDNBP ; now we get correct start 

ED85{ 9D 0002 sta ttState,x 

ED88| 86 E9 stx lstATP 7 start up ATP 

ED8A| 64 44 stz CMDBufN 

ED8C| 64 47 stz CMDRID 

ED8B| 4C 4553 jmp CMDdone ; and, that's all we do here 

ED91 

oar FORO ROR RGR RII TOR IIIT ITOK RIOR A TORR IORI ROR KOR ROR AR RK TORR RRR KK KA 
ED91 | :** end of PCDDP 

ED91| 

ED91| -include PCRIMP ; Routing Table Maintenance Protocol 
ED91 | z** PCRTMP, handler for Routing Table Maintenance 

ED91 | FORO IORI IRI ITO I III ICRI ICICI IOI ITI IIIT IR ROR RK ICR ORR R FOR RR IRR RR ITOK KE 
ED91 | ** This little stub handles reception of RTMP packets. This version is 
ED91 | :* only applicable for non-Bridge nodes. All we do is pickup values for 
ED9L{ ;* aBridge and ThisNet. 

ED91|{ 7;* Notes all of this module is new with the -A rev of ROM. 
ED911 | JORG I II IOI GIGI CICIOI CIO GIOI ICICI IGG ICICI IOC ICICI ITO ITOK IK 
EAB6* 91ED 

ED91 | xRXRTMP 7** entry from xRXDDP 

ED91{ AO 09 ldy #laDatatddTypet+2 ; look at its type 

ED93{ Bl 14 lda @rtP,y 

ED95} C9 O1 emp #ddRTMP ; is this RTMP response? 

ED97{ DO** bne $69 ;)06©Af not, flush it 

ED99| 

ED99 | 7** this is an RTMP response, so copy the network # and bridge # 
ED99| AO 03 ldy #laSrct2 ; source is bridge's id 

ED9B| Bl 14 lda @rtP,y 

ED9D| 85 OB sta aBridge 

ED9F| AO OA ldy #laDatat+tddData+rtmNet+2 ; copy net# from packet 

EDA1| Bl 14 lda @rtF,y 

EDA3| C8 iny 

EDA4} 85 OC sta ThisNet 

EDA6| Bl 14 lda @rtP,y 

EDA8{ 85 OD sta ThisNet+1 

EDAA | 

EDAA | 3** reload the RIMP timer 

EDAA| A9 5A lda #90. ; loooong timer 

EDAC{| 85 15 sta RTMPtmr 

EDAE | 

ED97* 15 

EDAE| 4C CDE4 $69 4mp RCVtask 7; then, toss the packet 


EDB1 | 


42 
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EDB1 | JOR III II ICICI II III CII ICICI CII ICO IOI IG IOI III I Ik 
EDB1 | j* setRTMP, a routine called by setLAP to send the RTMP+ packets. We 
EDB1| 

EDB1} :* locate code here to modularize the RTMP stuff. 
EDB1 | JOR III III III IIIT II ISIC ICICI GIGI ICI IICIGI CI IIIT OR ICICI IIR RII ATR IR IK 
EDB1| setRIMP 7** Jjsr'd by setLAP 

EDB1{ A2 18 ldx #dP 3; allocate a buffer (if we can) 
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EDB3| 20 33E2 jsr getFree 

EDB6| DO** bne $1 ; Af it went OK, process it 
EDB8| A5 69 lda myNode ; else, simply return my node # 
EDBA| 4C 4553 jmp CMDdone 

EDBD | 

EDBD | 7** make up the RTMP+ packet 

EDB6* 05 

EDBD| 85 44 $1 sta CMDBuEN ; save the buffer # 

EDBF| 18 cle 

EDCO| A5 18 lda dP 

EDC2| 69 68 adc #HDROFS % 0100 

EDC4| 85 02 sta t2 

EDC6| AS 19 lda dP+1 

EDC8| 69 02 adc #HDROFS / 0100 

EDCA| 85 03 sta t2+1 

EDCC | 

EDCC | 7** build an RTMP+ packet (only using header area) 
EDCC| AO OO ldy #0 

EDCE| AQ FF lda #0FF 7 broadcast 

EDDO| 91 02 sta @t2,y 

EDD2| C8 iny 

EDD3| AS 69 lda myNode 

EDD5| 91 02 sta @t2,y 

EDD7| C8 iny 

EDD8| AY O1 lda #laDDP 

EDDA| 91 02 sta @t2,y 

EDDC| C8 iny 

EDDD| A9 O00 lda #0 7 length 

EDDF| 91 02 sta @t2,y 

EDE1| c8 iny 

EDE2| A9 06 lda #6 

EDE4| 91 02 sta @t2,y 

EDE6| C8 iny 

EDE7| AQ O1 ida #rtmSKT 

EDE9| 91 02 sta @t2,y 

EDEB| C8 iny 

EDEC| 91 02 sta @t2,y 

EDEE| C8 iny 

EDEF| A9 05 lida #ddRTMP1 

EDF1| 91 02 sta @t2,y 

EDF3| C8 iny 

EDF4| AQ O1 lida #rtmCMD1 

EDF6| 91 02 sta @t2,y 

EDF8| C8 iny 

EDF9| 

EDF9} 7** prepare transmission 

EDF9| 98 tya 7; our length 

EDFA| AO 00 ldy #0 

EDFC| 91 18 sta @dP,y ; header's length 

EDFE| C8 iny 

EDFF| AQ 40 lda #CMDtcb 7 who to wake-up 

EEO1| 91 18 sta @dP,y 7; data length (nil) 

EEO3| C8 iny 

EEO4{ A9 00 lda #0 

EEO6| 91 18 sta @dP,y 
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EEO8| C8 iny 

EEO9| 91 18 sta @dP,y 

EEOB| 

EEOB | 7** the transmit loop 

EEOB| AO 03 ldy #3 7; times to try 

EEOD | 

EEQD| SA rtXmit phy 7; save counter 

EEOE| 64 40 stz CMDflgs 

EE10O| A5 44 lda CMDBufN 

EE12| 20 80E2 jsr putxXmit ¢ start it out 

EE15| AQ 04 lda #sTXDONE 3; and, wait for it 

EE17| 20 64E1 jsr Wait 

EE1A| 

EE1A| AO 01 ldy #1 ; 1 second delay 

EE1C| 5A $1 phy ; save secs ctr 

EE1D{ A5 ic lda TMRsecs 

EELF| 48 $2 pha ; wait for a second 

EE20| 20 F7E1 jsr Yield 

EE23| 68 pla 


EE24| C5 1¢ cmp TMRsecs 
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EE26{ FOF7 beq $2 

EE28| 7A ply 7; check if enuff gone bye... 

EE29| 88 dey 

EE2A| DOFO bne $1 

EE2C | 

EE2C | 7** having waited, check if any reply came in 

EE2C| 7A ply 7 get counter in case of success 

EE2D| A5 OB lda aBridge 7; has one responded? 

EE2F[{ DO** bne $8 7)~=60yes, we're done 

EE31| 88 dey 7; else, do a few times 

EE32{ DOD9 bne rtXmit 

EE34 | 

EE2F* 03 

EE34| A5 44 $8 lda CMDBufN 7; done, give buffer back 

EE36| 20 73E2 jsr putFree 

EE39| 

EE39| 3** following was moved from xINITLAP 

EE39| AS 69 $9 Ilda myNode ¢ our number is status!! 

EE3B| 4C 45E3 jmp CMDdone 7~=6©and, back to IdleLp 

EE3E 

eee FOI III III III II OI IOI ISIGIGISI GIGI IGIGIDI OI IOI GIGI GIGI III I II II IRI Ok 
EE3E | peer EOF, of PCRIMP 

EE3E | 

BESE | 

EE3E | -include PCNBP 7 Name Binding Protocol handler 

EE3B | gare PCNBP, support for Name Binding on PCcard 

EESE| Pitti ti Rte eee eee ee eee ee ee ee 
EE3E| 7* As part of -A changes, we have removed the NBPlkup. Instead, it is 
EE3E| 7* replaced by a retry facility in DDP. Thus, the code formerly contained 
EE3E| ?* in this module is now at end of PCDDP. 

EE3E| DR RRR RR RRR KR RR RK RRR KR KK RRR KR KER RRR RR RR KR RK IK KK EK RK RK RRR KR RR KK KKK IK KR KKK RK KK 
EE3E 

se GRR RRR HR RR KR KK RRR IR KKK RR IIR RIOR RRR IORI RIO IO ICICI ORO IR OIC KR ROOK Kk ok 
EE3E | eel end of PCNBP 

EE3E | 
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EE3E| 

EE3E | -include PCATP ; Apple Transaction Protocol handler 

EE3E | peek PCATP, handler for AppleTalk Transaction Protocol 

EE3E | RRR RRR RRR RRR RRR RRR RRR KEK KKK RR RRR RR RK RR RRR RRR KER RRR KR RRR KEKE KK EK EK RK KK KR KK 
EE3E | 7* AppleTalk Transaction Protocol handler. Unlike the handlers for the 
EE3E| ?* other protocols, most of this runs as an independent task. Transmission 
EE3SE | 7* of Request and Response packets is initiated by this task, rather than 
EE3E | :* by the CMDtask. The one-second time maintained by PCEXEC is used for all 
EESE| 7* timeouts required by the protocol. 

EE3E| 7* Each transaction is kept track of by a table entry (the Transaction 
EB3E] #* Table). These table entries are created by CMDtask, but maintained by 
EB3E| ¢* ATPtask. 

EE3E | GRR IRR RRR RR RRR RR KK RK RR RK KR IRR RR RK RR RRR RR KR KR RR IK RR KK KKK KK ERK KKK KK RK 
EE3E 

Bee GRR RR RRR RRR RR RRR RK KK KR RRR RK KR IRR RR RR KR RRR RRR RIK RIK RR RIK KK ERK RK KR EK 
BE3E| 7* XRXATPX, received an (DDP extended) ATP packet; do something with it... 
EE3E| POR RRR RRR KERR RK RK RK KR RR KKK KKK RRR KKK RR RK RK RRR KR RK RK KKK RRR KKK KKK ERR KKK EK EK KK 
EE3E| xRXATPX 7** entry from RCVtask 

EE3E| A2 7¢ ldx #ATPlock ; lock now to make sure we play w/ vars 

EE40| 

EE40| 20 CCE1 jsxr semaP 

EE43| AO 14 ldy #laData+xdDatatatTID+2 ; setup tempts for fndTT; sre TID 

EE45| Bl 14 lda @rtP,y 

EE47| 85 00 sta t0 

EE49| C8 iny 

EE4A| Bl 14 lda @rtP,y 

EE4C| 85 O1 sta tl 

EE4E| AO OF ldy #laData+xdSNodet2 

EESO| Bl 14 lda @rtP,y 

EE52| 85 02 sta t2 ; src node 

EE54| AO 10 ldy #laData+xdSskt+2 

EE5S6| Bl 14 lda @rtP,y 

EES58| 85 03 sta t3 7; sre socket 

EE5A| AO OB ldy #laData+xdSnet+2 

EESC| Bl 14 lda @rtP,y 

EE5E| 85 04 sta t4 7; src net 

EE60| C8 iny 

EE61| Bl 14 lda @rtP,y 

EE63| 85 05 sta t5 

EE65| 

EE65{ AO 13 ldy #laDatat+xdDatat+atBtMapt2 7 setup common code 

EE67[ Bl 14 lida @rtP,y 7 bitMap (seq nbr) 

EE69| 85 06 sta t6 

EE6B| 88 dey 

EE6C| A9 18 lda #laDatat+xdDatatatData 7 length of header 

EE6E| 80** bra RXATP 7 and, merge 

EE70| 

EE70| FRR R RR KIKI KK IK KKK IK RIK RK KKK KIRK RRR RK KKK IK RRR KKK IKKE AKA KKK RK KK 
EE70| 7* xXRXATP, received an ATP packet; do something with it... 


EE70| FRIAR RRR RRR K IKI KK KIKI IRR KEK HII KR RK REIKI AKAIKE KKK EIR HAKKAR KKK KKK 
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EE70| 


EE70| A2 7¢ 
EE72{ 20 CCEL 
EE75| AO Oc 
EE77| Bl 14 
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EE79| 85 00 
EE7B[| C8 
EE7C| Bl 14 
EE7E| 85 O1 
EE80| AO 03 
EE82| Bl 14 
EE84] 85 02 
EE86|{ AO 08 
EE88| Bl 14 
EE8A| 85 03 
EE8C| 64 04 
EE8E]| 

EE8E| 64 05 
EES9O| 

EE90| AO OB 
EE92| Bl 14 
EE94| 85 06 
EE96| 88 
EE97| AQ 10 
EE99| 80** 
EE9QB| 

BREQB| 

EE9B| 

EE9SB| 

EE 9B| 

EE9QB{ 

EE9B| A9 20 
BEE9D| 20 **** 
EFAO{ FO** 
BEA2 | 

EEA2 | 

EEA2{| BD 0002 
EFA5{ C9 21 
EEA7| DO** 
EEA9| 

EEFAQ| 

EBA9| AQ 24 
EEAB| 9D 0002 
EEAE| 86 E9 
EEBO| 80** 
EEB2 | 

EEB2 | 

EEA7* 09 
EEB2| 9E 0002 
EEB5| BD 0102 
EEB8| AO 00 
FEBA| 20 23E3 
EEBD | 

EEBO* OB 
EEAO* iB 
EEBD| A2 7C 
EEBF| 20 98El1 
EEC2| 4C CDE4 
EECS5 | 

EEC5| 
>>>>PAGE - 68 
EEC5 | 

EECS | 

EEC5| 

EE99* 2A 
EEG6E* 55 
EEC5 | 

EEC5| 85 07 
EEC7| Bl 14 
EEC9| 85 08 
EECB| 29 CO 
EECD| c9 40 
EECF| FO** 
EED1} ¢c9 CO 
EED3{ FOC6 
EED5| C9 80 
EED7| DO** 
EED9| 4¢ **x** 
EEDC | 

EED7* 03 
EEDC| A2 7¢ 
EEDE| 20 98E1 
EEEL| 4C CDE4 


PCCARD 


PCCARD 


pecardrom.ist Page 
xRXATP 7** entry from RCVtask 
ldx #ATPlock ; lock now to make sure we play w/ vars 
jsr semaP 
ldy #laDatatddDatatatTID+2 ; setup tempts for fndTT; sre TID 
lda @rtP,y 
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sta tO 

iny 

lda @rtP,y 

sta tl 

ldy #laSrc+2 

lda @rtP,y 

sta t2 7 sre node 
ldy #laDatat+ddSskt+2 

lda @rtP,y 

sta t3 7 sre socket 
stz t4 7 sre net 


stz t5 


ldy #laData+ddDatatatBtMapt2 7 setup common code 
lda @rtP,y 3 bitMap (seq nbr) 

sta t6é 

dey 

lda #laDatat+tddDatatatData 

bra RXATP 


FOI III II ICI III CIICIGIOI III IOIOICII CIC IOI III III IC IIT IIT TA IIT I ITOK IAA RRA 


7* RXREL, recv'd a TRel. If we have a SendResponse underway, finish 


;* 41f of f.. Otherwise, send packet to bit-bucket. 
FOR RR ROR RII I RII I IO ICICI ICICI ICICI IGRI CII ICICI TCR ORI II TICK RI 


RXREL 
lda #SENDRSP 7 any posted? 
jsr fndTT 
beq $9 3; if not, drop on floor 
7** we have one, finish it off. 
lda ttState,x ; is this one Q'd? 
cmp #SENDRSPq 
bne $1 7 nope 
7** this entry is queued for Tx, so handle specially 
lda #SENDRSPa 7; set for abort 
sta ttState,x 
stx lstATP ; signal ATPtask 
bra $9 ; and, leave 


7** a SENDRSP is not queued, we can immediately cancel it. 


$1 stz ttState,x 7; show "not active" 
lda ttRID,x 7 setup for postsTs 
ldy #0 7; simply show done 


jsr poststTs 


$9 Idx #ATPlock 7; free up table 
jsr semaV 
jmp RCVtask ; and, leave 


RIO IOI I IOI IOI III ICI ISI III GICIGIOICIICISISIGI II CITIOIGII ICICI ICICI ICICI TOO TT TOK IK 
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;* RXATP, common code to handle received packet. 
OI III I IGIIIGICIGIGIOIICI ICID III OIC III GIGI III ICO III IOI OOK 


RXATP 7** common handler from above 
sta t7 ; save header length 
lda @rtP,y 7 fetch atccI 
sta t8 7; ~=6save CCI 
and #atCmsk ; mask them 
cmp #atREQ 7 TReq? 
beq RXREQ 
cmp #atREL 7 TRel? 
beq RXREL 
cmp #atRSP 7 TResp? 
bne $69 
jmp RXRSP 

$69 ldx #ATPlock ; free table if bad 


jsr semaV 
jmp RCVtask 7 none of above; iqnore frame 
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EEER4 | 

EEE4 | 

EEE4 | 

EEE4 | 

EEE4 | 

EECF* 13 
EEE4 } 

EEE4] AQ 20 
EEE6{ 20 **** 
EEE9{ FO** 
EEEB| 

EEEB] 

EEEB| BD 0002 
EEEE| C9 28 
EEFO| FO** 
EEF2 | 

EEF2 | 

EEF2{ A5 06 
EEF4| 3D 0502 
EEF7| FO** 
EEF9| 9D 0602 
EEFC| BD 0002 
EEFF| C9 23 
EFO1{ DO** 
EFO3| A9 20 
EFO5| 9D 0002 
EFO8| 86 E9 
EFOA| 

EFO1* Q7 
EEFO* 18 
EFOA| A2 7C 
EFOC| 20 98E1 
EFOF| 4C CDE4 
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EF12| 

EF12 | 

EF12 | 

EF12| 

EF12| 

EF12| 

EEF7* 19 
EF12| BD 0002 
EF15| ¢c9 23 
EF17| DO** 
EF19{ AQ 30 
EFIB| 9D 0302 
EFLE| 

EF17* 05 
EF1E{| A5 06 
EF20| 48 
EF21/ DA 
EF22| A2 74 
EF24| 20 CCEL 
EF27| AQ CO 
EF29| 20 24E4 
EF2C | 

EF2C| FA 
EF2D| AQ 74 
EF2F| 8D 0080 
EF32| BD 0102 
EF35| 8D 0080 
EF38| 68 
EF39| 8D 0080 
EF3C | 

EF3C| 20 3BE4 
EF3F| A2 7¢ 
EF41| 20 98E1 
EF44| 4C CDE4 


EF47 | 
EF47| 
EF47| 
EF47| 
EF47 | 
EF47 | 
EF47 | 
EEE9* 5C 
EF47| 
EF47 | 
EF47 | 
EF47 | 
EF47| 
EF47 | 
EF47 | 
EF47| 
EF47 | 
EF47 | 
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GGG GIGI GIOIIG III III IGICICIIGIOIGIGGIGIOIDIGIGGIDIDICICICIOICIG OI OIG ITAA 


7* RXREQ, recv'd a TReq. If we don't already have the response, 


7* pass this packet to Host. Otherwise, send the data.. 
DOO II III III III IGIGITIO OID ICICI ISIS III ICICI IIT III IK IA IIE 


RXREQ 
lda #SENDRSP ; look for a Response outstanding 
jsx fndTT ; find a matching entry 
beq nRXREQ 3 no, must be new one 

7** we have found our request; check on duplicates 
lda ttState,x ; is this new one (waiting)? 
cmp #SENDRSPn 
beq $9 + yes, ignore this one 
lda t6 ; else, get this entry's TReq BtMap 
and ttRsMap,x prevent errors (in lengths) 
beq RXSTS assume response to STS 


update desired ones 
what's it doing? 
waiting? 


sta ttTxMap,x 
lda ttState,x 
cmp #SENDRSPw 


O re Se Se Me Ne 


bne $9 gon Zt'll find out 
lda #SENDRSP 7; yes, change to do a send 
sta ttState,x 
stx lstATP 7; show state changed 
$9 ldx #ATPlock 7; unlock ATP table 
jsr semaV 
jmp RCVtask 7; ~and, leave 
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OI III IG III IGG ICTS GIDII ICICI I ICICI I III OIC GI ICICI II ITO ITI IR TO IA ICE 


;* RXSTS, assumed response to a STS (or timeout), where we have sent 
7* all of the packets that Host originally gave us in SendResponse. Pass 


7* back the info to Host; it will presumably give us an AddResponse. 
OCIS III I ICI III IGG IGICIGIGICI ICICI CICICICICI CIC ICICI ICICI IO ITO I ROI IRR IK 


RXSTS lda ttState,x ; Lf SendResp is waiting 
cmp #SENDRSPw 
bne $1 
lda #30 ; then, reset timer 


sta ttTmr,x 


$1 l1lda té 7; get new map 
pha 7; and save it 
phx 7; and, x 
ldx #DMAlLock : but, we do need DMA 
lda #DMAinfo 
jsr waitDMA 3; wait for it 
plx 3; get entry again 
lda #074 ; show what kind 
sta DMAreg 
lda ttRID,x ; and, that it's in process 
sta DMAreg 
pla ; reload the map 
sta DMAreg 
jsr freeDMA ; ok, free stuff up 
ldx #ATPlock ; unlock ATP table 


jsr semaV 
jmp RCVtask 


=e 


and, leave 


DOI ICICI III III IGICIGICICIDIGIOIOISIOI I III ICICI ICICI CIC II ICR ITT IO II IIT IIR 


7** come here for new request; note: we do not post a new SENDRSP; wait 
7** for our Host to ask us to. 
7* We used to generate table on XO, but now we pass thru (as in olden 


s* times); Host will handle filtering of duplicates until SENDRSP is issued. 
ORI III III IIDC GIGI IOIOI III CII ICICI GIGI ICICI ITT IK 


nRXREQ 

week the commented code can be used to do auto-generation of table 
; lda t8 7; retrieve CCI 

: and #atxoO 7; XO flag set? 

i beq $8 7; no, normal one 


pee its an XO; build a new table entry (if we have room) 
: ldx lstTTP 3 start from last one allocated. 

7$1 lda ttState,x 7 this one busy? 

- beq $3 ; no, we have one 


Page 
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EF47| 

EF47| ; txa 3; yes, advance thru table 

EF47 | : cle 
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EF47| * adc #TTSIZE ; by incrementing by table entry size 
EF47| ? bne $2 3; skip if not at page boundary 

EF47 | 3 lda #TTBASE % 0100 ; else, start at front 

EF47] 7$2 tax 

EF47| ; emp lstTTP 7; have we gone around all the way? 
EF47 | j bne $1 ; no, keep looking 

EF47 | Z bra $69 3 else, we have no room, ignore it.. 
EF47 | 

EF47 | 7** we have an empty entry, X marks the spot; add data for fndTT later 
EF47| 7$3 stx IlstTIP 7 save ptr for next time 

EF47 | : lda #SENDRSPn ; show we're waiting 

EF47] 7 sta ttState,x j; save correct NEW state 

EF47|{ 2 txa 7; makeup RID 

EF4?7 | ? ora #080 

EF47| 2 sta ttRID,x ; save for later match on SENDRSP 
EF47 | Fy pha ; and, for later 

EF47]| : lda #atXxoO 7 save XO flag 

EF 47 | : sta ttFLGs,x 

EF47] - lda t4 7; copy for dup checks 

EF47} ? sta ttDnet,x 

EF47| : lda t5 

EF47[ 2 sta ttDnet+1,x 

EF47 | : lda t2 

EF47| 2 sta ttDnode,x 

EF47 | 7 lda t3 

EF47| ? sta ttDskt,x 

EF47]| : lda tO 

EF47| i. sta ttTID,x 

EF47 | ; lda ti 

EF47 | : sta ttTID+1,x 

EF47| : lda #30 ; set default timer 

EF47| : sta ttTmr,x 

EF47| ; plx 7; restore RID 

EF47|[ : bra $9 7; and, merge w/ common code | 

EF47| 

EF47| A2 00 $8 ldx #0 7 no RID (non-X0O) 

EF49 | 

EF49| AQ 34 $9 Ilda #034 > our function code 

EF4B{ A4 07 idy t7 ; pickup header length 

EF4D] 

EF4D} 20 D5EA jsr RXDDP1 ;)~=6©6use shared code to copy 

EF50| 

EF50| A2 7c $69 ldx #ATPlock 3 unlock table 

EF52| 20 98E1 jsr semaV 

EF55| 4C CAE4 jmp RCVfree 7 and, merge 

EF58 | 

EF58 | JOR RRR RIK RRR RIK IR RIK RK KIKI KR KK IK RK KARR RRR RK KARR RK IK ARR IK RRR ERK KR KER KK 
EF58| ;* RXRSP, recv'd a TResp. If we have the SendRequest under way, 
EF58| 7* copy the packet to Host (assuming filtering for duplicates, etc.). If 
EF58| 7* we do not have SendRequest pending, throw this guy away. 
EF58[ ORO OR II IO ROCIO ICI I ITO TOR ICR II TOK I ITOK RRA KR IRR ICR RIOR IK RII IR IK Ok 
EEDA* 58EF 

EF58 | RXRSP 

EF58| AQ 10 lda #SENDREQ 3; look for a request 

EF5A| 20 **** jsr fndTT 
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EFSD| FO** beq $9 ; if none, ignore packet 

EFSF} 

EFSF | 7** we have a TTtbl entry; check if duplicate. 

EF5F| A4 06 ldy t6 7 pickup TResp's SqNbr 

EF61| B9 5CEO lda atBits,y 

EF64| 3¢ 0603 bit ttBtMap,x ; this one expected? 

EF67| FO** beq $9 7 = no, ignore it then 

EF69| 5D 0603 eor ttBtMap,x ; yes, mark off list 

EF6C| 9D 0603 sta ttBtMap,x 

EF6F | 

EF6F | 7** process the EOM bit in this TResp packet. 

EF6F| AO OA ldy #laDatat+tddDatatatCCI+2 ; assume DDP pkt 

EF71| AS 07 lda t7 7; check on pkt type 

EF73| C9 10 cmp #laData+ddDatatatData 7 correct? 

EF75| FO** beq $1 

EF77| AO 12 ldy #laDatatxdDatatatCCI+2 ; else, DDPX 

EF79} 

EF75* 02 

EF79| Bl 14 $1 Ilda @rtP,y 7 pickup CCI byte 

EF7B{] 85 00 sta tO ; save 

EF7D| 

EF7D{ 29 10 and #atEOM 3; is it last one? 

EF7F{ FO** beq $2 nope, keep going 


me Ne 


EF81| A4 06 ldy t6é else, clear rest of ttBtMap 
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EF83| C8 iny 

EF84| B9 53E0 lida atMaps,y 

EF87| 3D 0603 and ttBtMap,x 

EF8A| 9D 0603 sta ttBtMap,x 

EF8D | 

EF8D | 3** we have a packet for Host, use common code to pass to Host. 
EF7F* OC 

EF8D| 86 E9 $2 stx lstATP 3 save our index 

EF8F| A5 00 lda t0 ; save across task switches 

EF91| 48 pha 

EF92| BD 0102 lda ttRID,x ; setup call to pass it along 
EF95| AA tax 

EF96| A9 36 lda #036 7; to Host 

EF98| A4 07 ldy t7 

EF9A[| 20 DSEA jsr RXDDP1 : share code to transfer to Host 
EF9D| 68 pla 

EF9E| 85 00 sta tO 

EFAO| A6 E9 idx lstATP 7; restore index 

EFA2| BD 0603 lda ttBtMap,x 7 any more? 

EFA5S| FO** beq $3 7; nope, check on XO 

EFA7 | 

EFA7| ;** for normal processing, check if STS is on in request. If so, change state 
EFA7 | ;* to send the request again. 

EFA7{ AS 00 lida t0 7 CCI from recv'd pkt 

EFA9| 29 08 and #atSTS 7; STS requested? 

EFAB| FO** beq $8 7; no, normal processing 

EFAD| BD 0002 lda ttState,x ; is it already queued? 

EFBO| C9 11 cmp #SENDREQq 

EFB2| FO** beq $8 ; yes, don't need to play 

EFB4| A9 10 lda #SENDREQ 7; else, set to re-issue the request 
EFB6| 80** bra $6 7; and, merge 
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EFB8 | 

EFB8| i** following is placed here for addressability 
EF67* 4F 

EF5D* 59 

EFB8| A2 7C $9 Ildx #ATPlock ; free table 

EFBA| 20 98El jsr semaV 

EFBD| 4C CDE4 jmp RCVtask 3; toss un-expected one 
EFCO] 

EFCO| 

EFCO! ;** whoopee!! the SendRequest is done. finish us off 
EFAS* 19 

EFCO| BD 0402 $3 Ilda ttFLGs,x 3; is this XO? 

EFC3| 29 20 and #atxo 

EFC5| DO** bne $4 7; yes, special processing 

EFC7 | 

EFC7| 9E 0002 stz ttState,x 3; else, show done immediately 
EFCA| BD 0102 lda ttRID,x ; set status 

EFCD| AO 00 ldy #0 

EFCF| 20 23E3 jsr postsTs 

EFD2| 80** bra $8 

EFD4 | 

EFD4 | ;** XO SendRequest; send TRel first. 

EFC5* OD 

EFD4[{[ BD 0002 $4 Ilda ttState,x 7; what's it doing? 

EFD7| AO 30 ldy #SENDREL ¢ assume we can do it now.. 
EFD9| C9 11 cmp #SENDREQq 7 Q'd? 

EFDB| DO** bne $5 ;))06©no, set for normal 

EFDD| AO 33 ldy #SENDRELr 7 if Q'd, set for abort 


EFDF | 

EFDB* 02 

EFDF| 98 $5 tya 7 get appropriate state 
EFB6* 28 

EFEO| 9D 0002 $6 sta ttState,x 

EFE3| 

EFD2* OF 

EFB2* 2F 

EFAB* 36 

EFE3| A2 7C $8 ldx #ATPlock 7 free table 

EFE5| 20 98E1 jsr semaV 

EFE8| 4C CAE4 jmp RCVfree 7; this one is done... 
EFEB | 


EFEB | FRR RIOR FR ROTOR OR RIOR IORI ROK RRR OR KR TOR IR KR TOK KR IK IKK RFR RK RR RIK EK KK 


EFEB | ;* fndTT, common routine to find a matching entry in TTtable, based 

EFEB | ;* upon params in t0..t6 from a recv'd packet. A has proto-type of desired 
EFEB| 7* entry type (SENDREQ/SENDRSP). Upon exit, Z -> entry not found, else X 
EFEB| +* has table's index for further amusement and pleasure... 

EFEB| ;* Note, the order in which we look at stuff should match expected 

EFEB| 7* degree of mismatch. 

EFEB| 

EFEB| ORR ROR IR IIR RIOR FOR RRO TOR TORI RIOR I FORO TORR TOR RR ROR IO HTK ARO RK RK RK KK 
EF5B* EBEF 

EEE7* EBEF 

EE9E* EBEF 

EFEB| fndIT 2** called by RXREQ/RXRSP/RXREL 
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EFEB] 85 09 sta t9 ; save for later in loop 
>>>>PAGE - 73 PCCARD FILE: PCATP.a65 PCcard - firmware for IBM-PC AppleTalk 
EFED| A2 09 ldx #TTBASE % 0100 3 start of table 

EFEF | 

EFEF| BD 0002 $1 lda ttState,x ; kind of entry 

EFF2| 29 FO and #0F0 

EFF4| C5 09 cmp t9 7; this right kind? 

EFF6| DO** bne $2 

EFF8| BD 0803 lda ttTID+1,x 7; OK, look at rest 

EFFB| C5 01 cmp t0+1 

EFFD] DO** bne $2 

EFFF| BD 0703 lda ttTID,x 

FOO2| ¢c5 00 cmp tO 

FO0O4| DO** bne $2 

FO06| BD 0203 lda ttDnode,x 

FOO9| c5 02 cmp t2 

FOOB| DO** bne $2 

FOOD| BD 0303 lda ttDskt,x 

F010] ¢c5 03 emp t3 

FO12| DO** bne $2 

FO014| BD 0003 ida ttDnet,x 

FO17| cS 04 cmp t4 

FO19| DO** bne $3 7 special for nets 

FO1B] BD 0103 lda ttDnet+1l,x 

FO1LE| C5 05 emp t5 

FO20| FO** beq $9 

F022 | 

F022 | ¢** net matching is messier than simple compares!! 
FO19* 07 

FO22| A5 OC 53 Ilda ThisNet ; if ThisNet is zero 

FO24| O05 OD ora ThisNet+1 

.FO26{ FO** beq $9 3) «6accept it 

FO28{| BD 0003 lda ttDnet,x 7; else, if Dnet is zero 
FO2B| 1D 0103 ora ttDnet+1,x 

FO2ZE[ DO** bne $2 7 «6©accept it 

FO30| 

FO30| ¢** this looks like a match, return to caller w/ not-Z 
FO26* 08 

FO20* OF 

FO30| 8A $9 txa 

FO31| 60 rts 

FO32| 

FO2E* 02 

FOQ12* 15 

FOOB* 25 

FOO4* 2c 

EFFD* 33 

EFF6* 3A 

FO32| 8A $2 txa 7; not match, advance ptr 

FO33| 18 cle 

FO34| 69 OD adc #TTSIZE 

FO36| AA tax 

FO37{ DOB6 bne $1 

FO39| 60 rts 7; 2 set if exit this way 

FO3A| 

FO3A | JOR IIR IORI ICRI OI OI RI T OR IOR IR RR RRR IORI RO RIOR KOK RK KKK RK 
FO3A| :* xXABTREQ/XABTRSP, abort a possible SendRequest in process. 
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FO3A| ;* The RID param is that of the desired SendRequest. FC = $39/S$3A 
FO3A| 

FO3A| 7;* We also have one for SNDNBP; FC= $2F 

FO3A| ORR ROR RIOR CRO TORR OKI IOI TO TOI III ROR TOR FOR ATOR ROR RIOR ITOK RI RIO RRO AK RAK RK 
FO3A| AX 40 xABTINBP lda #SENDNBP ; add abort for NBP 
FO3C} 80** bra ABTRQRS 

FO3E| 

FO3E| AQ 10 XABTREQ lda #SENDREQ 7; what we want 

FO40| 80** bra ABTRQRS 

F042 | 

F042] AQ 20 XxABTRSP lda #SENDRSP 

F044 | 

FO40* 02 

FO3C* 06 

FO44 | ABTRQRS 7;** common code!! 

FO44| 48 pha 

FO45] A2 74 ldx #DMAlock 7; we don't need DMA anymore 
F047} 20 98E1 jsr semaV 

FO4A] A2 7¢ ldx #ATPlock 7; make sure we can diddle 
FO4C| 20 CCEL jsr semaP 

FO4F[| 68 pla 

FO50/| 85 00 sta tO j save REQ/RSP code 

FO52| 18 cle 

FO53| 69 O01 ade #SENDREQq-SENDREQ 7; adjust values 

FO55| 85 O1 sta tl 

FO57| 69 03 adc #SENDREQa-SENDREQQ 
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FO59| 85 02 sta t2 

FO5B| 

FO5B| A2 09 ldx #TTBASE % 0100 

FOSD{ AS 47 $0 lda CMDRID 7; the one we're looking for 
FO5F | 

FO5F| DD 0102 31 cmp ttRID,x 7; this one? 

FO62{| DO** bne $8 

FO64{ BD 0002 lda ttState,x 7; make sure 

F067| C5 O01 cmp tl ; is it queued entry? 

FO69| DO** bne $2 

FO6B| A5 02 lda t2 7; yes, show to be aborted 
FO6D} 9D 0002 sta ttState,x 

FO70| 86 E9 stx lstATP 7; show one changed 

FO72| 64 47 stz CMDRID ; clear RID to skip status 
FO74| 80** bra $9 7; and, leave 

FO76| 

FO69* OB 

FO76| 29 FO $2 and #0F0 ; check if its any SENDREQ 
FO78| C5 00 cmp t0 

FO7A| DO** bne $69 

FO7C| C9 40 cmp #SENDNBP 7 special? 

FO7E| DO** bne $3 7 no 

FO80| DA phx 7; save X across call 

F081] BD 0402 lda ttBufN,x ;~=60yes, free buffer used 
FO84{ 20 73E2 jsr putFree ; by SNDNBP 

FO87 | 

FO87| FA plx 

FO88{ 64 CC stz nbTTP 7 show done.. 

FO8A| 

FO7E* OA 
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FO8A| 9E 0002 $3 stz ttState,x ; show finished 

FO8D| AQ 02 lda #ABTdone ;~ and, its outcome 
FO8SF| 85 45 sta CMDRslt 

FO91{ 80** bra $9 

F093] 

FO6@2* 2F 

FO93| 8A $8 txa 3; crank to next 

FO94| 18 cle 

FO95| 69 OD adc #TTSIZE 

FO97| DOC6 bne $1 

FO99| 

FO7A* 1D 

FO99{ AQ FF $69 lda #REQerr 7; show error 

FO9B| 85 45 sta CMDRslt 

FO9D| 

FO91* OA 

FO74* 27 

FOOD| A2 7c $9 I1ldx #ATPlock ; free-up table 

FOOF| 20 9851 jsr semaV 

FOA2| 4C 4CE3 jmp CMDstat 

FOAS | 

FOA5} JOR RR IRR IOI I ICICI CIRO IRI ICICI IC ICICI RICK OR ICR Fok 


FOAS} ;* xSNDRSP, the entry for a Host ATPSendResponse. Note that the proto- 


FOAS| 3* type ATP packet header has been set by Host software. This entry is called 
FOAS | ;* by CMDtask, and returns to it. However, the actual transmission is done 
FOAS| 7* by ATPtask. FC = $32. 

FOAS | ;* Before building a new entry, we scan in case this is a response to an 
FOAS | 3* XO TReq. If so, we need not allocate a new one, just use an old one. 
FOAS | ORR RII OR RR RRR FOI ROR IIR IO IORI IOI OI TOR TOI I RI TIT RII TKR RR TOR RIOR IK RR RK IK EK RIKER KEK 
FOAS | xSNDRSP 7** entry for SendResponse; runs as CMDtask 

FOAS| AS 47 lida CMDRID 7 get Host's value 

FOA7| 10** bpl $9 ; if not one of our's, assume non-XO 

FOAS | 

FOA9| A6 E8 idx lstTTP ; start from last one allocated. 

FOAB]| BD 0002 $1 Ilda ttState,x 7; this one busy? 

FOAE | 

FOAE| C9 28 cmp #SENDRSPn 7 waiting one? 

FOBO| DO** bne $2 

FOB2| BD 0102 lda ttRID,x 7; RID match? 

FOB5| C5 47 cmp CMDRID 

FOB7| DO** bne $2 

FOB9| AQ9 20 lda #SENDRSP 7 yes, re-use this entry for our response 

FOBB| 48 pha 

FOBC| 80** bra bldaTT1 7 and, merge 

FOBE | 

FOB7* 05 

FOBO* OC 

FOBE| 8A $2 txa ; yes, advance thru table 

FOBF| 18 cle 

FOCO| 69 OD adc #TTSIZE 7; by incrementing by table entry size 

FOC2| DO** bne $3 ; skip if not at page boundary 

FOC4| AQ 09 lda #TTBASE % 0100 ; else, start at front 

FOC2* 02 

FOC6| AA $3. tax 
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FOC7| C5 E8 emp lstTTP ; have we gone around all the way? 
FOC9| DOEO bne $1 3; no, keep looking 

FOCB| 

FOCB| 7** 1f no match, assume normal entry 

FOA7* 22 

FOCB{ AQ 20 $9 Ilda #SENDRSP 7 set state value 

FOCD{ 80** bra bldTT 7; and, share common entry 


FOCF | 
FOCF | OI IO III I III IOC IOI IIIS IOI ICICI IOI TOIT ITC IIR TOR RTI RIOR KK 


FOCF | >*  xSNDREQ, the entry for a Host ATPSendRequest. Note that the proto- 

FOCF | ;* type ATP packet header has been set by Host software. This entry 1s called 
FOCF | ;* by CMDtask, and returns to it. However, the actual transmission is done 
FOCF } 7* by ATPtask, FC = $31 

FOCEF | OIC IOI III II ITO III ICICI OI IOI III ITO ICICI IIR ICR IO IOI TOO IIT TORIC RICH 
FOCF | *XSNDREQ 3** entry for SendRequest; runs as CMDtask 

FOCF| A9 10 lda #SENDREQ 3 set state value 

FOD1| 

FOD1 | 

FOD1] OIG III I IG IOI ICO III IOI IO TO IOI TOR IR IIR A 
FOD1 | 3* bldTT, common code to build a new TT entry; the format for both 

.FOD1 | ;* SNDREQ and SNDRSP is identical. 

FOD1 | ORRICK IR TOR IO IORI TOR IOI IRR IIR RRO IRR ROR RR ORR RK IKK RIOR RK RRR RK KR RE 
FOCD* 02 

FOD1| bldTT 7** common entry 

FOD1| 48 pha ; save tState value 

FOD2| 

FOD2| A6é E8 ldx lstTTP 7 start from last one allocated. 

FOD4| BD 0002 $1 Ilda ttState,x ; this one busy? 


FOD7| FO** beq $3 3; no, we have one 

FOD9| 8A txa ; yes, advance thru table 

FODA| 18 cle 

FODB| 69 OD adc #TTSIZE 7; by incrementing by table entry size 
FODD| DO** bne $2 7 skip 1f not at page boundary 
FODF| AQ 09 lda #TTBASE % 0100 ; else, start at front 
FODD* 02 

FOE1| AA $2 tax 

FOE2| C5 E8 cmp lstTTP ; have we gone around all the way? 
FOE4| DOEE bne $1 7; no, keep looking 

FOE6 | 

FOE6{ s** we haven't found a free one; signal error to CMD caller. 
FOE6} 68 pla ¢ pop saved state 

FOE7} A9 FE lda #NoFreeErr 

FOE9| 4¢ 45E3 jmp CMDdone 7; and, thats it 

FOEC | 

FOEC| 7** we have an empty entry, X marks the spot 
FOD7* 13 

FOEC] 9E 0402 $3 stz ttFLGs,x ; fixup this for non-X0O 
FOEF] 

-FOBC* 31 

FOEF| 86 E8 bldTT1l stx lstTTP ; save ptr for next time 
FOF1| 68 pla ; restore desired state 

FOF2] 9D 0002 sta ttState,x j save correct NEW state 
FOFS| 

FOF5| s** now, build rest of entries from DMA 

FOFS| 
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FOF5| A5 47 lda CMDRID 7 copy RID 

FOF7| 9D 0102 sta ttRID,x 

FOFA| DA phx 7; save X across loop 

FOFB} i 

FOFB| 3** copy rest of request using admittedly sleazy code 
FOFB| AO 09 ldy #ttUser-ttDnet ; loop counter 

FOFD| AD 0080 $1 Ilda DMAreg 

F100| 9D 0003 sta ttDnet,x 7 right on for first one 
F103| E8 inx 

F104| 88 dey 

F105| DOF6 bne $1 

F107| 

F107| FA plx ; pickup our ptr 

F108| 86 E9 stx lstATP 7 signal ATPtask 

FIOA| BD 0402 lda ttFLGs,x 7 keep old XO flag 

F1OD| 29 20 and #atxoO 

FLOF| 1D 0503 ora ttCCI,x 7; add in our flags 

F112| 9D 0402 sta ttFLGs,x 

F115| BD 0002 lda ttState,x ; what is this? 

F118|{ ¢c9 10 cmp #SENDREQ 7 SendRequest? 

F11A| FO** beq bldTREQ 

Flic} 

F11c} 7;** finish setup for SNDRSP 

Fiic{| BD 0402 bldTRSP lda ttFLGs,x ; set initial value 
FIIF| 29 20 and #atxo 7 ~=©6(passing X0) 


F121| 09 80 ora #atRSP 
F123| 9D 0503 sta ttCcI,x 
F126| BD 0603 lda ttBtMap,x ; then, # of buffers for SendResponse 
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F129| 9D 0602 sta ttTxMap,x 7; save it for later 

Fl2c} 9D 0502 sta ttRsMap,x 7 =(copy for EOM checks) 
F12F | 

FL2F| 64 47 $9 stz CMDRID ; show no status now 
F131| 4¢ 4553 jmp CMDdone 7; and, wait for more 
F134 | 

F134 | y;** finish setup actions for SNDREQ 

FI1A* 18 

F134| AD 0080 bldTREQ lda DMAreg 7; copy User bytes 
F137{| 9D 0903 sta ttUser,x 

F13A| AD 0080 lda DMAreg 

F13D| 9D OAO3 sta ttUsert+1,x 

F140| AD 0080 lda DMAreg 

F143| 9D OBO3 sta ttUser+2,x 

F146| AD 0080 lda DMAreg 

F149| 9D 0CO3 sta ttUsert+3,x 

FL4C| 

F14c| AD 0080 lida DMAreg 7 copy control stuff 
FL4F| 9D 0502 sta ttTmOut,x 

F152| AD 0080 lida DMAreg 

FL55| 9D 0602 sta ttRtrys,x 

F158| AD 0080 

F15B| 9D 0702 sta ttDlng,x 

F15E| AD 0080 lda DMAreg 

F161| 9D 0802 sta ttDlngt1,x 

F164 | 

F164| BD 0402 lda ttFLGs,x 7; mask bits for TReq 
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F167] 29 20 and #atxX0O 

F169} 09 40 ora #atREQ ; add in request bits 
FL6B] 9D 0503 sta ttCCcI,x 

F16E| 

F1G6E] BC 0603 $1 Ildy ttBtMap,x 7; convert # of responses to 
F171! B9 53E0 lda atMaps,y 7; =©bitMap 

F174| 9D 0603 sta ttBtMap,x 

F177 | 

F177| 64 47 $9 stz CMDRID 3; show no status now 
F179| 4¢ 45E3 jmp CMDdone ; and, wait for more 
F17C 

om ORCI IIIT IO TOIT TOTTI I TOI IR RIOR II TK RR IR RK RE RRR RRR AKER ERK 
F17c| ;* xXADDRSP, code to support AddResponse function. We search the TTtbl 
FL7C| :* for active entry that matches our RID. If we find an outstanding SENDRSP, 
F17c| ¢* we update its ttRsMap with new values. 
F17¢C | ZORRO IR IIR RI TOR I RK ROI TOIT KTR IRR IK TKI RRR RIOR RR RRR RR RRR IRR RIK RIK RRR RRR K KKK 
F17C| xADDRSP 7** entry from CMDTASK 
F17c| AD 0080 lida DMAreg 7 get CCI/FLGS 

FL7F| 29 18 and #atEOM+tatSTS 7; must have one of these 
F181| FO** beq $69 

F183[ 85 00 sta t0 ; else, save 

F185| AD 0080 lida DMAreg 7 get map 

F188| FO** beq $69 

FL8A| 85 01 sta tl 

F18c| A2 09 ldx #TTBASE % 0100 ; start looking 

F18E| 

F18E| BD 0002 $1 lda ttState,x 7 must be SENDRSP type 
F191[ 29 FO and #0F0 

F193| C9 20 cmp #SENDRSP 

F195| DO** bne $2 7; if not, keep looking 

F197| BD 0102 lda ttRID,x 7; else, match? 

F19A| C5 47 cmp CMDRID 

F19Cc| FO** beq $5 7; yes, further look 

FL9E| 

F195* Q7 

F19E| 8A $2 txa ; else, advance search 

FLOF| 

FLOF| 18 cle 

F1AO| 69 OD adc #TTSIZE 

FLA2| AA tax 

F1A3| DOE bne $1 

F1A5| 

FLA5| AQ FC lda #NoTTErr 7; we looked, and no match 
FIA7{| 4C 4583 jmp CMDdone 7 so, report error 

F1AA| 

F188* 20 

F181* 27 

FIAA| AQ FF $69 lda #REQerr ; show error 

FIAC| 4C 45E3 jmp CMDdone 

FIAF | 

FLAF | 7;** we have what is presumed to be our entry of interest 
F1l9c* 11 

FIAF| A5 00 $5 lda t0 7; update stuff 

F1B1| 9D 0402 sta ttFLGs,x 

F1B4| A5 01 lda tl 
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F1B6| 9D 0502 sta ttRsMap,x 

F1B9| 9D 0602 sta ttTxMap,x 

FIBC| AQ 20 lida #SENDRSP 7; setup for ATPtask 

FIBE|] 9D 0002 sta ttState,x 

F1ici] 86 E9 stx lstATP ; force ATPscan to go active 
F1c3| 64 47 stz CMDRID 3; show no error status 

F1IC5| 4C 4553 jmp CMDdone 7; and, merge 

F1c8 | 

F1c8 | DORI IO III TORII TOFU ROI IOI IO TORII TOI ROI TOR TORI II TOR RR TOK RR IOI TIA TOR III KR AK EK 
F1c8| z* bldHdr, build an ATP header in atPh area from TT entry whose offset 
F1c8] 7* is currently in X. 

F1c8 | FOR III I III IGG ISIC IOI IOI ICICI IOI COI IOI IOI ICI TOR IO I TOR I IO I AK IK 
F1ic8| bldHdr 7; used by NEWREQ and NXTRSP 
F1c8| BD 0003 lda ttDnet,x ; check if its long packet stuff 
FICB| 1D 0103 ora ttDnett+l,x 

FICE| FO** beq bldDDP ; do shorty 

F1D0| 

F1DO| ;** check on which net to use 

F1DO| A5 OB lda aBridge ; valid bridge? 

FID2| DO** bne $1 7 =6yes, ThisNet is valid! 

FiD4| AS Oc lda ThisNet 7; else, is ThisNet also 0? 
F1D6| O5 OD ora ThisNet+1 

F1D8| FO** beq b1ldDDPX 7; if yes, force DDPX 

FLDA| 

F1D2* 06 

F1DA| BD 0003 $1 Ilda ttDnet,x ; if to a net, is it ours? 
FLDD | 

FIDD| C5 0c cmp ThisNet 

FLDF| DO** bne bldDDPX 7; nope, must be long 

F1E1| BD 0103 lda ttDnett+1,x 

F1E4| C5 OD cmp ThisNett+1 

F1E6| FO** beq bldDDP 7; yeah, we can use short one 
FLE8| 

FLE8 | 7** bldDDPX, build an eXtended form of DDP 

FILDF* 07 

F1ID8* OF 

F1E8| A5 OB b1daDDPX lda aBridge ; send to a bridge on our net 
FLEA| DO** bne $1 ; if valid, use it 

F1EC| BD 0203 lda ttDnode,x 3; else, use caller's 

FLEF | 

FIEA* 03 

FLEF| AO 00 $1 ldy #laDst 7 pt to Dst 

FIF1ij 91 E2 sta @atPh,y 

F1IF3| c8 iny 

FLF4| A5 69 lda myNode 

FIF6{ 91 E2 sta @atPh,y 

F1F8| C8 iny 

FLF9| AQ 02 lda #laDDPX 

FIFB| 91 E2 sta @atPh,y 

FIFD| C8 iny 

FIFE| 

FIFE| 18 cle 7; compute & stash count 
FIFF| A5 E4 lda atc 7; this ts length of ATP data 
F201| 69 15 adc #xdDatatatData 7; + headers 

F203| 48 pha ; reverse order! 
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F204| A5 E5 lida atC+l1 

F206| 69 00 adc #0 

F208| 91 E2 sta @atPh,y 

F20A| C8 iny 

F20B( 68 pla 

F20Cj 91 E2 sta @atPh,y 

F20E{| C8 iny 

F20F | 

F20F] par B4 change, added CKS, sNode to header 
F20F| A9 OO lda #0 

F211{ 91 E2 sta @atPh,y 7; CKS 

F213| C8 iny 

F214| 91 E2 sta @atPh,y 

F216] C8 iny 

F217] BD 0003 lda ttDnet,x 

F21A{ 91 E2 sta @atPh,y 

F21c| c8 iny 

F21D| BD 0103 lda ttDnet+1,x 

F220| 91 E2 sta @atPh,y 

F222| C8 iny 

F223{ AS OC lda ThisNet 

F225| 91 E2 sta @atPh,y 

F227| C8 iny 

F228| A5 OD lda ThisNet+1 

F22A| 91 E2 sta @atPh,y 

F22c| C8 iny 

F22D{ BD 0203 ida ttDnode,x 

F230} 91 E2 sta @atPh,y 

F232| C8 iny 


F233| BS 69 lda myNode,x 7; Snode 
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F235] 91 E2 sta @atPh,y 

F237| C8 iny 

F238] 80** bra bldHdrl 7 merge paths 

F23A| 

F23A| s** build LAP/DDP header (short) 

FLE6* 52 

FICE* 6A 

F23A| AO 00 bldDDP ldy #laDst 7 pt to laDst 

F23c| BD 0203 lda ttDnode,x 

F23F| 91 E2 sta @atPh,y 

F241| c8 iny 

F242| AS 69 

F244| 91 E2 sta @atPh,y 

F246| c8 iny 

F247| AQ O1 lda #laDDP 

F249| 91 E2 sta @atPh,y 

F24B| C8 iny 

F24c| 18 cle # compute & stash count 

F24D| AS E4 lida atc ; this ts length of ATP data 

F24F| 69 OD adc #ddDatatatData 7; + headers 

F251| 48 pha 7 reverse order! 

F252| A5 ES lida atctl 

F254| 69 00 adc #0 

F256] 91 E2 sta @atPh,y 

F258} C8 iny 
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F259| 68 pla 

F25A| 91 E2 sta @atPh,y 

F25c{ ¢c8 iny 

F25D} 

F25D| 7** common path to build rest of DDP/ATP header 

F238* 23 

F25D| BD 0303 bldHdrl lda ttDskt,x ; finish trail end of DDP 

F260| 91 E2 sta @atPh,y 

F262] C8 iny 

F263] BD 0403 ida ttSskt,x 

F266| 91 E2 sta @atPh,y 

F268] C8 iny 

F269| A9 03 lda #ddATP 

F26B| 91 E2 sta @atPh,y 

F26D| C8 iny 

F26E| 

F265 | 7** finally, the ATP header (copied by sleazy code!) 

F26E| DA phx 7; save X 

F26F| AQ 08 lda #atData 

F271| 85 00 sta tO 7 loop counter 

F273| BD 0503 $1 lda ttcCCI,x 3 note! X advances (pretty sneaky!!) 
F276| 91 E2 sta @atPh,y 

F278] C8 iny 

F279| E8 inx 

F27A| C6 00 dec t0 

F27C| DOFS5 bne $1 

F27E| FA plx 7; recover X 

F27F | 

F27F | 7** note! Y now has size of the header 

F27F| 98 tya 

F280| 92 EO sta @atP 7; set length for XMTtask 

F282! 60 rts 

F283] 

F283 | 

F283 | DORI RRR IOI IO III TOI TOR IOI IIT I TOR IKK IK RR RR RK RK IKK KR KIRK RRR KKK KEKE 
F283 | 7* ATPtask, the actual task which manages all ATP stuff. SendRequests 
F283] ;* and/or SendResponses result in a table entry being added; ATPtask is then 
F283] ;* Signalled, whereupon it takes the desired action. 

F283) ;* The dynamic behaviour of ATP revolves around the ATPloop. Note that 
F283 | 

F283 | 7* there are 3 distinct loops in ATPtask, each "guarded" by checking if an 
F283 | ;* event has been noted which requires its action. 

F283 | ORRICK ICICI RI ICR IIR RI ITOK RIT ORR IT TOK KAR ROKK EK 
F283| A2 EO ATPtask ldx #atP ; grab a single buffer (for all time!!) 
F285| 20 33E2 jsr getFree 

F288| 85 5C¢ sta ATPBufN 3; save its number for interest 

F28A| 18 cle ; create header ptr 

F28Bi} AS EO lda atP 

F28D| 69 68 adc #HDROFS % 0100 

F28F| 85 E2 sta atPh 

F291| A5 El lda atP+1 

F293| 69 02 adc #HDROFS / 0100 

F295| 85 E3 sta atPh+t1l 

F297| AO O1 ldy #1 ; set ATP as task to wakeup on TXDONE 

F299| AX 58 lda #ATPtcb 
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F29B{ 91 EO sta @atP,y 

F29D | ;** from now on, atP/atPh are considered correct; make sure they are!! 
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F29D 

on OI III II ICI III III ICIS III CIGIOI SII TIGIGI ICI ICID II IO ICICI III ICI ITI TIO HK 
F29D | 3* ATPloop, the main path for waiting for interesting events. These 
F29D | 7* consist of: 

F29D| 7* 1) ONESEC, a one-second interval has occurred. 

F29D| 3* 2) NEWREQ, a new host request has been processed. 
F29D] :* 3) TXDONE, "THE" atP buffer has been transmitted. 
F29D | OGIO IGIIGIIIIOIOIOIOIICIGIICICICITI CITI TICI GIG CIGI ICICI III III ICICI III TOR ITO 
F29D| 20 F7E1 atpLoop jsr Yield ; give others a chance 

F2A0 

Dan DORI III IIIT OIC III ICICI GIOIOIC ICICI IIOI ICICI IC ICI IIIT RIOR IORI AA TR IK RIKKI RIK 
F2A0 | 

F2A0} 7* atpTIME, perform the timout chores related to SendRequests. 
F2A0 | DOI II IO III III IOI CIGIOIIICICIGIOIOI ICI III III ICICI ICR TOIT I TOK 
F2A0| A5 iF atpTIME lda ATPsecs ; has time passed? 

F2A2| C5 1C cmp TMRsecs 

F2A4| DO** bne $0 

F2A6{ 40 **** jmp atpScan 3; Lf not, just scan 

F2A9 | 

F2A4* 03 

F2A9| A2 7¢ $0 ldx #ATPlock ; Yes, lock table for processing 
F2AB| 20 CCEl1 jsr semaP 

F2AE| 

F2AE| :** do a quick scan thru table, changing states of interest to timeouts 
F2AE| A2 09 ldx #TTBASE % 0100 ; start at front 

F2BO| BD 0002 $1 Ilda ttState,x ? get current state 

F2B3| FO** beq $9 7 skip if null 

F2B5| 

F2B5{ C9 12 cmp #SENDREQx 7 request sent? 

F2B7| FO** beq $11 ; nope, skip this one 

F2B9| C9 42 cmp #SENDNBPx ; likewise, for SNDNBP 

F2BB| DO** bne $2 

F2BD| 

F2B7* 04 

F2BD| FE 0002 $11 ine ttState,x ; yes, start timing (in SENDREQw/SENDNBPw) 
F2CO| BD 0502 lda ttTmOut,x 

F2C3| 9D 0302 sta ttImr,x 

F2C6| 80** bra $9 ; and, loop 

F2c8| 

F2BB* OB 

F2c8| c9 13 $2 cmp #SENDREQw 7; timing for real 

F2CA| FO** beq $21 

F2cc| c9 43 cmp #SENDNBPw 7; share code for SNDNBP 

F2CcE| DO** bne $5 

F2D0| 

F2CA* O04 

F2D0| DE 0302 $21 dec ttTmr,x 7 yes, downcount it 

F2D3| DO** bne $9 

F2D5| BD 0502 lda ttTmOut,x 3; assume more tries ok 

F2D8| 9D 0302 sta ttTmr,x 

F2DB] 

F2DB{ BD 0602 lda ttRtrys,x 7; More to go? 

F2DE| FO** beq $69 ; no, finish 
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F2E0| 

F2E0| C9 FF cmp #0OFF ; is the retry value SFF 

F2E2| FO** beq $4 > yes, "infinite" 

F2E4| 3A dea 7 update counter 

F2E5| 9D 0602 

F2E8 | 

F2E2* 04 

F2E8| BD 0002 $4 Ilda ttState,x 7; restore original request 

F2EB} 29 FO and #0F0 

F2ED| 9D 0002 sta ttState,x 

F2FO| 86 E9 stx lstATP 7 wakeup atpSCAN 

F2F2| 80** bra $9 

F2F4| 

F2CE* 24 

F2F4| C9 28 $5 cmp #SENDRSPn 7 new one (not SENDRSP yet?) 

F2F6| DO** bne $6 

F2F8| DE 0302 dec ttTmr,x 7; yes, keep going? 

F2FB| DO** bne $9 7; yes 

F2FD| 9E 0002 stz ttState,x 7; no, just re-use it 

F300] 80** bra $9 

F302 | 

F2F6* OA 

F302{ C9 23 $6 cmp #SENDRSPw 7; Response waiting? 

F304| DO** bne $9 

F306| DE 0302 dec ttTmr,x 7 yes, down-count it 

F309| FO** beq $69 : abort if no more 

F30B} 

F304* 05 

F300* 09 

F2FB* OE 

F2F2* 17 


F2D3* 36 
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F2C6* 43 

F2B3* 56 

F30B| 8A $9 txa 7; advance to next entry 
F30C| 18 cle 

F30D} 69 OD adc #TTSIZE 

F30F| AA tax 

F310| DOSE bne $1 ; back for more if not done 
F312 | 

F312| A5 1c lda TMRsecs ; else, 

F314} 85 1F sta ATPsecs ;)~=606set for next time 
F316| A2 7c ldx #ATPlock ; free table 


F318| 20 98E1 jsr semaV 

F31Bi] 80** bra atpSCAN 

F31D| 

F31D| a** xXREQFAIL/xRSPFAIL, a SendRequest/SendResponse has timed out 
F309* 12 

F2DE* 3D 

F31D| DA $69 phx 7 save table entry 

F31E| AO FD ldy #TmOutErr signal error 

F320| BD 0102 lda ttRID,x show which RID 

F323| 20 2353 jsr postsTs OK, post status... 

F326| FA plx 7 get entry ptr back 

F327 | 
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“=a Ms fe 


F327} BD 0002 lda ttState,x 7 get state 

F32A| 9E 0002 stz ttState,x ; show free 

F32D| 29 FO and #0F0 3; check if NBP 

F32F| ¢c9 40 cmp #SENDNBP 

F331] DOD8 bne $9 ; if not, leave 

F333 

F333| DA phx 7 save X 

F334| BD 0402 lda ttBufN,x 7; free buffer 

F337| 20 73E2 jsr putFree 

F33A| FA plx 

F33BI 64 CC stz nbTTP ; then, clear it 

F33D{| 80CC bra $9 7 and, look for next 

F33F{ 

F33F] 

F33F{ JOR RI RR ICICI III III IIR ICR RCI ITI TOR IT ACTOR ICRI FO AIC Hk 
F33F | 7* atSREQz,atSRSPz,atSRELz - final processing for ABT's or SENDREL. 
F33F | ORI I IRR I ICT II ICI ICICI IOI I TORII IIR CR ICR RTO ITO ITOK IIR ITOH 
F33F] atSNBPz 7; ABT NBP after Q'd 
P33F{ DA phx 3 save X 

F340| BD 0402 lda ttBufN,x 7} free buffer 

F343| 20 73E2 jsr putFree 

F346| FA pix 

F347[{ 64 CC stz nbTTP 3; show done 

F349| 

F349 | atSREQz ; ABT REQ after Q'd 
F349| atSRSPz 7; ABT RSP me Le 

F349| AO 02 ldy #ABTdone 7 final status 

F34B| 80** bra atSz2z2z 7 merge 

F34D{ 

F34D{ AO 00 AtSRELZ ldy #0 ; normal after TRel sent 
F34F | 

F34B* 02 

F34F| DA atSzzzz phx save X 


“es fe 


F350| BD 0102 lda ttRID,x 
F353| 20 2353 jsr postSTSs 
F356| FA plx 
F357| 9E 0002 stz ttState,x ; and, show its free 
F35A| 80** bra atpScn2 
F35C | 
F35C| ORR RII IR RR RII III IIR TOI ICICI IIR II TOR IR IC ICICI TO IOI R I TOR TICK RK IK 
F35c] ;* atSREL - set up a TRel. We simply change the CCI flags to TRel, 
F35c} ;* zero the request length, and "look like" a SENDREQ (sort of). 
F35cC{ FOI III III IOI ISI III CI ICICI ICICI III IOI IOI III TI IIR IR ITI 
F35c{ BD 0503 atSREL lda ttCCI,x 3; add in FC 
F35F(| 29 3F and #0FF-atCmsk 
F361[ 09 CO ora #atREL 7; set flag 
F363| 9D 0503 sta ttCCI,x 
F366| 9E 0702 stz ttDing,x 
F369| 9E 0802 stz ttDingt1,x 
F36C| AY 30 lda #SENDREL 3; set (-1) for later 
F36E | 
F36E| 9D 0002 sta ttState,x 
F371| 80** bra atSxxx 7; ~=then, merge (increments ttState!) 
373 
a ORIG III III II IIGIGI ICI III ICICI CIC CTOI ICO ITI IIT IIR IOK 
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signal Host 


F373 | ;* atpSCAN, process state changes related to new stuff. 


, 
F373 | ORIG III I ICICI ICI III ICICI ICICI ICICI ITO ITT I FCRIII IK AIK KK ER KK 


F31B* 56 
F2A7* 73F3 
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F373] AS EQ 
F375| DO** 
F377] 4¢ **** 
F37A| 

F375* 03 
F37A| A2 7¢ 
F37C{ 20 CCEL 
F37F{ A2 09 
F381 | 

F381! BD 0002 
F384| FO** 
F386| C9 15 
F388| FOBF 
F38A| C9 45 
F38C| FOBL 
F38E| C9 25 
F390| FOB7 
F392| C9 32 
F394] FOB7 
F396[{ C9 10 
F398| FO** 
F39A| C2 20 
F39C| FO** 
F39E| C9 22 
F3A0| FO** 
F3A2| C9 30 
F3A4| FOB6 
F3A6| C9 34 
F3A8| FOB2 
F3AA}| C9 40 
F3AC | 

F3AC{ FO** 
F3AE | 

F384* 28 
F35A* 52 
F3AE| 8A 
F3AF| 18 
F3B0| 69 OD 
F3B2| AA 
F3B3| DOCC 
F3B5 | 

F3B5{ 64 E9 
F3B7| A2 7¢ 
F3B9| 20 98E1 
F3BC| 4C **** 
F3BF | 

F398* 25 
F3BF] 9E 0302 
F3C2 | 

F3C2 | 

F3AC* 14 
F371* 4F 
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F3C2| FE 0002 
F3C5| 9E 0202 
F3C8| 8A 
F3C9| A6 ED 
F3CB| DO** 
F3CD| 85 EC 
F3CF| 80** 
F3D1 | 

F3CB* 04 
F3D1{ 9D 0202 
F3D4 | 

F3CF* 03 
F3D4{ AA 
F3D5{ 86 ED 
F3D7| 80D5 
F3D9} 

F3D9| 

F3A0* 37 
F3D9| AY 20 
F3DB| 9D 0002 
F3DE| 

F39C* 40 
F3DE| BD 0602 
F3E1| DO** 
F3E3| BD 0402 
F3E6| 29 28 
F3E8| DO** 
F3EA| 

F3EA | 

F3EA| 9E 0002 
F3ED | 

F3ED{ DA 
F3EE| BD 0102 


atpSCAN 
bne 
jmp 


$1 ldx 
jsr 
ldx 


atpScnl 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beg 
cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beg 
cmp 
beg 
cmp 


beg 


atpScn2 
cle 
adc 
tax 
bne 


stz 
ldx 
jsr 
jmp 


atSREQ 


p** add 


FILE: 


atSxxx 
stz 
txa 
ldx 
bne 
sta 
bra 


$2 sta 


$3 tax 
stx 
bra 


lda lstATP 


$1 ; 
atpXMIT 


#ATPlock 
semaP 
#TTBASE % 


pecardrom.1st 
7 anything of interest? 
yes, start us off 
; else, advance 


7 get table 


0100 ; else, scan thru table 


lida ttState,x 7 pickup state 


atpScn2 ; skip on none (idle entry) 
#SENDREQz ; after abort request 

atSREQz 

#SENDNBPz 7; after abort 

atSNBPz 

#SENDRSPz 7; recv'd TRel while Q'd 

atSRSPz 

#SENDRELZ 7; sent TRel, finish SENDREQ 
atSRELz 

#SENDREQ 7 if SENDREQ or 

atSREQ 

#SENDRSP 7 else SENDRSP (first time) 

atSRSP 

#SENDRSPx 3 else SENDRSP (2nd, and later) 
atSRSPx 

#SENDREL 7 else SENDREL (normal) 

atSREL 

# SENDRELX 7; else SENDREL (after Q'd SENDREQ) 
atSREL 

#SENDNBP ; or SENDNBP (each new send) 
atSXXxX 7 requires no additional processing 
txa 7 advance stuff 

#TTSIZE 

atpScenl 

lstATP ; show processed 

#ATPlock ; and, free table 

semaV 

atpXMIT ; when scan is complete, on to next stage 
stz ttBfr,x ; save buffer# for atpXMIT 


this entry to the atTXQ; note: tricky reg sequences! 
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ine ttState,x 7; update its state 


ttLink,x 


atTxQtl 
$2 ; 
atTXQhd 
$3 


ttLink,x 


. 
¢ 


atTXQtl 
atpScen2 


; end-of-list 
save for later 
7 any at end? 
yes, update queue 
7; else, make this only one 


always add us as last 


3; back for more 


;** figure out next response to send 


atSRSPx 
sta 


atSRSP 
bne 
lda 
and 
bne 


;** for 
stz 


phx 
lda 


lda #SENDRSP 7; fix ttState for atSXxx 


ttState,x 


lda ttTxMap,x 7 get current map 


$2 ¢ 
ttFPLGs,x 


if any left, process them 
; else, check if this is XO (or STS) 


#atXO+atsTs 


$1 : 


non-XO, post complete after last response packet out. 


ttState,x 


e 


ttRID,x 


it is XO, set to wait 


3 else, finish this one off 


save X 
? and, post status 
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F3F1j AO 00 ldy #0 

F3F3| 20 2383 4sr postsTSs 

F3F6| FA plx 3 recover X 

F3F7{ 80B5 bra atpScn2 

F3F9| 

F3F9| 7** XO TResp has finished, start timing it 
F3E8* OF 

F3F9| AQ9 23 $1 lda #SENDRSPw 7; set its state 

F3FB| 9D 0002 Sta ttState,x 

F3FE| A? 30 lda #30 : set default timer 

F400] 9D 0302 sta ttTmr,x 

F403| S80OA9 bra atpScn2 

F405] 

F405] :** we have at least one more response to go, set it up 
F3E1* 22 

F405] BD 0503 $2 lda ttCCI,x ¢ clear EOM in CCI 
F408] 29 E7 and #0OFF-atEOM-atSTS 

F40A| 9D 0503 sta ttCcI,x 

F40D| AO 00 ldy #0 y look at first remaining bit 
F40F| BD 0602 lda ttTxMap,x 7 get BtMap back 

F412 | 
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F412| 4A 53 l1srA 7; in map 

F413{ BO** bes $4 

F415] c8 iny 

F416{ 80FA bra $3 

F418| 

F413* 03 

F418| 98 $4 tya 7 setup the SqNbr 

F419| 9D 0603 sta ttSqNbr,x 

F4ic{ 9D 0302 sta ttBfr,x 7 save for atpXMIT 

F41F| B9 SCEO lda atBits,y 7; and, show sent 

F422| 5D 0602 eor ttTxMap,x 

F425| 9D 0602 sta ttTxMap,x 

F428|{ DOB bne atSxxx 7; Af non-zero, more to go 

F42A| 

F42A| :** we have just set last used 

F42A| BD 0402 $5 Ilda ttFLGs,x ?; else, add EOM/STS flag 

F42D| 29 18 and #atEOMtatSTS 7 ~=6(only one s.b. sent) 

F42F[| 1D 0503 ora ttCCI,x 7; else, add EOM flag; this is last one 

F432| 9D 0503 sta ttcCCI,x 

F435| 808B bra atSxxx 7 merge for common code 

F437 

Gr DOOR IRR IORI ROR ROR FORO TOR TOR OI ITO IK IR IK RRO IR TOK RR RIOR RRR RK RK IK RK IKK AR KR KKK KKK KR 
F437] :* atXNBP, send SNDNBP via ATP task. We get here from below 

F437| 

F437 | ;* when atpXMIT recognizes this special send. Notice that the buffer is not!! 
F437 | ;* the ATP buffer; rather, the buffer is in ttBufN cell. 

F437| 7;* NOTE: THIS CODE WAS ADDED FOR REV-B 

F437 | JOR I TOR TORK FR AH IK OK RIK RR RR ROK ORR ROR RR IKK OR KK RR KK RIK IK RK RK RR KARR KKK KK KK 
F437| BD 0402 atXNBP Ilda ttBufN,x ; pickup real buffer to use 

F43A| 20 80E2 jsr putxXmit 7; put into XMT queue 

F43D| 4C 9DF2 jmp atpLoop 7; ~=and, loop. 

F440 | 

F440] ORR IRIRRKRIRIRIRRR R K IR RK RIK KKK ITOK IK IK KK IK IKK RIK IR IR RAI AK ERR RIKER KR RK 
F440| ¢* atpXMIT, check if any previous TX may have completed (or we don't 
F440} ;* have one currently). If so, pull an entry off atTXQ and start it out.. 
F440| ORO IR III II III TOR III III III III III TOR IIR IK IK kk 
F3BD* 40F4 

F378* 40F4 

F440| 20 F7EL atpXMIT jsr Yield 3; give someone a shot 

F443} 

F443| A6 EE ldx xmtATP 7 is one waiting? 

F445| FO** beg $1 7 «nope, look for one off atTXQ 

F447| AQ 04 lda #sTXDONE 7; else, is transmit done? 

F449| 14 58 trb ATPFlgs 

F44B| DO** bne $0 7; yes, process it 

F44D | 

F44D| 4C 9DF2 $9  Jmp atpLoop ; and, sleep.... 

F450| 

F450] 7** a Tx, upon which we have been waiting, has finished. 

F44B* 03 

F450] FE 0002 $0 ince ttState,x 7; advance state (to SENDXXXx) 

F453| 86 E9 stx lstATP 7 signal atpSCAN 

F455] 

F455| 64 EE stz xmtATP ; and, show done 

F457 | 
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F457 | 7** check if any more in atTXQ. 
F445* 10 

F457| A6é EC $1  ldx atTXxQhd 7; head of queue 
F459| FOF2 beq $9 ¢ none, just leave 
F45B| 


F45B| 86 EE stx xmtATP ¢ yes, mark as our "current" one 
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F45D} BD 0202 lda ttLink,x ; and, pull it off Q 

F460{ 85 EC sta atTXQhd 

F462] DO** bne $2 

F464] 64 ED stz atTxotl ; 1f this was last, fix end 
F466| 

F466| 7** OK, do the processing then 

F462* 02 

F466| AG EE $2 ldx xmtATP 3; check if this is really a send 
F468] BD 0002 lda ttState,x 

F46B/| C9 31 cmp #SENDRELQ ; if TRel, 

F46D| FO** beq atXREQ 3; ~=skip DMAlock 

F46F| 29 OF and #00F 

F471] C9 O1 cmp #SENDREQq & OOF ; is it expected? 

F473| DODB bne $0 ; Af not, simply show we got to it 
F475 | 

F475| BD 0002 lda ttState,x ; check again for special 
F478| c9 41 cmp #SENDNBPq ; NBP? 

F47A| FOBB beq atXNBP 7 ~=yes, do it. 

F47¢| 

FA7C | 3** for normal usage, assume we'll need DMA anyway 
F47C| A2 74 ldx #DMAlock 7 get DMA 

FA7E| 20 CCEL jsr semaP 

F481] AQ cO lda #DMAinfo 

F483| 20 24E4 jsr waitDMA 

F486| 

F486| A6 EE ldx xmtATP 7 get ptr back 

F488| BD 0002 lda ttState,x 7; REQ/RSP 

F48B| C9 21 cmp #SENDRSPq 

F48D| DO** bne atXREQ 

F48F | 

F48F | 3** response processing. fetch User-data, length 
F48F| BD 0603 atXRSP lda ttSqNbr,x ; copy buffer # for later 
F492| 9D 0302 sta ttBifr,x 

F495] AQ 35 lda #035 7; set FC to Host 

F497| 8D 0080 sta DMAreg 

F49A| BD 0102 lda ttRID,x ; show which request 

F49D| 8D 0080 sta DMAreg 

F4A0| BD 0302 lda ttBfr,x ; tell which part 

F4A3 | 

F4A3| 8D 0080 sta DMAreg 

F4A6| 

F4A6|{ AQ D1 lda #DMAdatat1l ; then, wait for the data 
F4A8| 20 24E4 jsr waitDMA 

F4AB | 

FAAB[ 7** we now have Ding, User data 

F4AB| A6é EE ldx xmtATP 7 get index back 

F4AD| AD 0080 ida DMAreg 

F4B0| 9D 0702 sta ttDing,x 

F4B3] 85 E4 sta atc 
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F4B5| AD 0080 lda DMAreg 

F4B8| 9D 0802 sta ttDlngt1,x 

F4BB/ 85 ES sta atctl 

F4BD{ 

F4BD{ AO 04 ldy #4 ; setup loop 

F4BF[ AD 0080 $1 lda DMAreg ; copy User data 

F4C2| 9D 0903 sta ttUser,x 

F4C5| E8 inx 

F4C6| 88 dey 

F4C7| DOF6 bne $1 

F4c9{ 

F4c9| A5 E4 lda atc ; check on any length 

F4cB; 05 E5 ora atCt+l 

F4CD| DO** bne atXXXY ; share code to transfer data 
F4CF| 80** bra atXXXzZ ; likewise, share code for no data 
F4D1 | 

F4D1| ;** note: both SENDREQq and SENDRELg take this path!! 
F48D* 42 

F46D* 62 

F4D1|] 9E 0302 atXREQ stz ttBfr,x ; buffer 0 (the only one) is needed 
F4D4 | 

F4pD4 | 7** setup length info for rdDMA/XMTtask. 

F4D4| BD 0702 lda ttDlng,x 

FAD7| 85 E4 sta atc 

F4D9| BD 0802 lda ttDing+1,x 

F4DC| 85 E5 sta atctl 

F4DE| 05 E4 ora atc 

F4EO| FO** beq atXXXZ 7; and, merge 

F4E2 | 

F4E2| A6 EE $1 1ldx xmtATP 7 reload base 

FAE4| AQ 33 lda #033 7; show Request for Req data 
F4E6| 8D 0080 sta DMAreg 

F4E9} BD 0102 lda ttRID,x 3; show which request 

F4EC| 8D 0080 sta DMAreg 

F4EF| BD 0302 lda ttBfr,x ; tell which part 


F4F2| 8D 0080 sta DMAreg 
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F4F5 | 
F4F5| 


FEOA| 


F4CD* 26 
F4F5{ AQ Di 
F4F7| 20 1AER4 
P4FA| 

F4FA| 18 
F4FB] A5 EO 
F4FD| 69 04 
F4FF| 85 18 
F501| A5 El 
F503| 85 19 
F505| A5 E4 
F507{ 85 1A 
F509] AS E5 
F50B{ 85 1B 
F50D| 

F4E0* 2B 
F4CF* 3¢ 
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F50D| A6 EE 
F50F| 20 C8F1 
F512 | 

F512| AO 02 
F514| AS E4 
F516] 91 EO 
F518| c8 
F519| AS E5 
F51B{ 91 EO 
F51D| O05 84 
F51F| FO** 
F521| 

F521| AQ D1 
F523| 20 2984 
F526| 20 50E4 
F529| 

F51F* 08 
F529| A5 77 
F52B| C9 58 
F52D| DO** 
F52F| 20 3BR4 
F532 | 

F52D* 03 
F532} A5 5c 
F534| 20 8052 
F537[| 4¢ 9DF2 
FP53A| 

F53A| 

F53A| 

F53A| 

F53A| 

F53A| 

F53A| 

F53A| 

F53A| 

F53A{ 

F53A| 28 43 29 20 41 
F56A|/ OD 
F56B| 41 6C 6C 20 72 
F57F| OD 
F580| 41 70 70 6C 65 
F59E| OD 
F59F| 52 6F 6E 20 48 
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F5A6| 68 73 70 72 75 
F5B7| OD 
F5B8} 

F5B8 | 

F5B8 | 

F5B8 | 

P5B8 | 

F5B8 | 

F5B8 | 

F5B8 | 

F5B8 | 

F5B8 | 

F5B8| FF FF FF FF FF 
FEOO| 

FEOO| 09 80 
FEO2| 04 4¢ 
FEO4{ 01 00 
FEO6| 03 Cl 
FEO8} OS 6A 
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#** common path to read user's encapsulated data 


atXXXY Ilda #DMAdata+l ; then, wait for the data 
jsr waltDMA1 ; allowing us to overlap 


cle ; compute ptr for rdDMA 
ida atP 


sta dP 

lda atP+l 

sta dadPt+l1 

lda atc 3; copy DMA stuff 
sta dc 

lda atctl 

sta dc+l 
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atXXXZ 1ldx xmtATP ; make sure of X 
jsr bldHdr 7 build header stuff 
ldy #2 ; setup length field for ATPxmit 
lda atc 
sta @atP,y 
iny 
lda atct+i 
sta @atP,y 
ora atc 7 any data? 
beq $1 ; Af not, skip DMA crap 


lda #DMAdatat1l ; else, sync w/ Host 
jJsr waitDMA2 


jsr rdDMA 7 read the data segment 
$1 lda DMAlock+sOwn 7 do we own DMA? 
cmp #ATPtcb 7 if not, 
bne $2 ; skip its de-allocation 
jsr freeDMA ; else, give up DMA 
$2 Ilda ATPBufN 7; add to xmitQ 
jsr putXmit 
jmp atpLoop 7; wait for completion 


FORO IIR RII III ITO I IOI TOC FOR IOI IOI ICTR I TOR ICTR RIOR OR IRR FOR ITO I TR I TR IR RK EK 
peek EOF, PCATP 


KK KKK KKK KR KKK KK KKK KKK KKK IKE KKK RK KEK REE RK ERE KR EERE KEE ERE EKER EKEEK KEK 


;* The following ASCII code is inserted at this point for a “hard- 
‘ 


;* coded" version of the copyright notice: 
KKK RK KK KKK EK KKK RK RK KR RK KE KK KR KKK KKK RK KR KR RR KR RR KEKE RE KEKE KEE KR KEKE KER EKER KER 


eascii "(C) Apple Computer, Inc., 1985, 1986, 1987, 1988" 


.byte OOD 

.ascii "All rights reserved." 

-byte OOD 

-asciil "Apple Part Number 342-0007-B14" 
»byte OOD 


wzascii "Ron Hochsprung, 08/10/88" 
FILE: PCcard - firmware for IBM-PC AppleTalk 


eascii “Ron Hochsprung, 08/10/88" D 14 
»byte OOD 


.if £ROM 
include pcDBG + debugging stuff 
7* pcDBG, debugging stuff 
JOC IOI III III IO II II IOI III IOI IOI TOI TOTO III TOK III IO TRA TR IK IK 
7* pcDBG, a simple talker between PCcard and debugger. Note that we can 
;* get here by using NMI. We attempt to save the state of the 65C02 in case 


;* we wish to continue. 
KKK KKK KK KK KKK IK KKK RK KR RK IMR KK KK KK KR KR IKKE KKK IKK RH KKK KE KKK KEK EKER EK KEKE KKK KKK 


.org OFEOO 3; force new page boundary for table 
DBGiTbl 3** scc channel-A initialization 

.byte 09, 080 reset channel (A) 

-byte 04, 04C 16x, 2-stop, no parity 

»byte 01, 000 no ints 

.byte 03, Ocl 8-bit Rx, Rx enable 

-byte 05, O6A 8-bit Tx, Tx enable, RTS 

-byte OB, O50 Tx, Rx BRG 


Se Me Na Se Ne Ne 
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FEOC| OC OA -byte Oc, 10. ; 9600 baud 
FEOE| OD 00 -byte OD, 0 
FE10| OF 03 -byte OE, 003 BRG enable 


me Ne 


FE12| QF OO «byte OF, O no ext ints 
FE14{ QOOA DBGITb1L .equ $-DBGiTb1/2 


FE14 | 
FE14| JO II I IOI II IGG IOI CIO ICIDICI GIGI GIGI I IOI ICICI IOI A TORR FOR I FOE 


FE14| xGo ;* we get here when user has requested a go (or cont). if the value of 
FE14| 7* tAdr is -1, then it its a cont, else, we use the value in tPC 

FE14| 20 **** jsr getEOP ; make sure it looks valid 

FE17| 

FE17| 

FE17| A2 27 ldx #aTbl 
FE19| AO 1A ldy #aTblL 
FE1B| 20 72E0 jsr xSCCA 
FELE| 

FE1E| A9 FF lda #0FF 
FE20| C5 F2 cmp tAdr 
FE22| DO** bne $1 
FE24| C5 F3 cmp tAdr+1 
FE26{ FO** beq xRTI 
FE28 | 

FE22* 04 

FE28{ AS F2 $1 Ilda tAdr 
FE2A| 85 FC sta PCreg 
FE2C| A5 F3 lda tAdr+1 
FE2E| 85 FD sta PCreg+1 
FE30| 

FE30| OIRO IGRI III III TOI TOO IOI IOI I TOI I ICR IORI TORR FORK TTR TOK ITOK ATOR AHI 
FE26* 08 

FE30] xRTI 7* xRTI is a command which allows us to startup code after NMI (or 


FE30] 7* break 
FE3O] FORO IOI IO FOR IOI TORR IIIT ICTR TOR IRR RK ROK FOR TK KK RR RK IK FOR FOR OK TOKIO IK KIRKE 
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reset port-A for default 


=e 


check tAdr value 


“es 


1€ FFFF, use current value 


™s 


else, use value in tAdr 


=. 


FE30| A6 F7 ldx SPreg ; restore state of stack 
FE32| 9A txs 

FE33] A5 FD lda PCregt1 ; setup stack for RTI 
FE35| 48 pha 

FE36| A5 FC lda PCreg 

FE38{ 48 pha 

FE39| AS FB lida Preg 

FE3B{ 48 pha 

FE3C| A6 F8 ldx Xreg 

FE3SE| A4 F9 ldy Yreg 

FE40} AS FA lda Areg 

FE42{ 40 rti ; and, pretend it never happened 


FE43] 
FE43 | POR RR II RR RIK KK IIR RK IR RRR RIK IKK IK RRR IR IK IK KK RR RIK RR KR RR RK KR KK RK ARK RK KK 


FE43| xNMI 7* xNMI gets invoked by NMI interrupt. save state and merge 

FE43 | POR RII IR IR I IKK TR IK ROK TOK IIR FOR IIR RR RRR TOR RIK RIOR KKK IK KK IR RIK RAK RR KK ARK RK 
FE43| 46 FF lsr NMIflg 7; test if this is "first" time 

FE45| BO** bes $1 7 yes, enter delay loop 

FE47{ 40 rti ; else, just leave 

FE48] 

FE45* Ol 

FE48{| 85 FA $1 sta Areg 3; save state 

FE4A} 

FE4A| 68 xBRK pla 
FE4B| 85 FB sta Preg 
FE4D| 68 pla 

FE4E| 85 FC sta PCreg 
FE50| 68 pla 

FE51| 85 FD sta PCregtl 
FE53| 84 F9 sty Yreg 
FE55| 86 F8 stx Xreg ; save other regs 
FE57{ BA tsx 7; copy SP 

FE58] 86 F7 stx SPreg 


FESA | 
FE5A| DOG III III UII IOI IOI ICR IRGC ICTR ITO IO TORII IOI 


FEDA| 7* basic debug interaction here 

FE5A| DORR OR OR IO OK RIOR IRI IOI IRR ICRC R ROKR CR FOR FOR FORO ROOR TORCH TR FOR HOR I AA 
FE5A| D8 xTalk cld ; make sure of state 
FE5B{ AO OA ldy #DBGiITbl1LL 7 loop counter 

FESD| A2 00 ldx #0 7; index 

FESF| AD 0240 lda DBGctrl ; make sure we're in step 
FE62 | 

FE62| BD OOFE $1 lda DBGiTbl,x 7; pickup reg# 

FE65| 8D 0240 sta DBGctrl 

FE68| E8 inx 

FE69| BD OOFE lda DBGiTbl,x 3 value 

FE6C| 8D 0240 sta DBGctrl 

FE6F| E8 inx 

FE70| 88 dey 

FE71| DOEF bne $1 

FE73 | 

FE73{ A2 7F reTalk ldx #STKbase-1 % 0100 + re-load SP 


common entry for BRK (IRQ) 
Proc status 


we Ne 
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FE75| 9A txs é 

FE76{ AO 00 ldy #0 7; set Y for first time thru 

FE78| 
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FE78| 84 Fl $0 sty tFunc ; reset flags, checksum 

FE7A| 84 FO sty tCKS 

FE7C| 20 **** jsr getB 7 get a byte 

FE7F[| C9 02 cmp #aSTX 7 «correct beginning? 

FE81| DOFS bne $0 7 nope, keep looking 

FE83 | 

FE83| 7** looks like beginning of a packet, get lst 3 bytes 
FE83{ A? O1 lda #001 7; reset NMI flag 

FE85| 85 FF sta NMIflg 

FE87| 20 **** jsr getB 

FE8A| DO** bne $1 + if non-valid FC 

FE8C| 4C **** jmp xNAK ; send a NAK and re-examine 
FESF | 

FE8A* 03 

FE8F] 85 FL $1 sta tFunc ; else, save the function code 
FE91| 

FEQ1| 20 **** jsr getB ? get tAdr 

FE94| 85 F3 sta tAdr+l 7 (in reverse order) 

FE96| 20 **** jsr getB 

FE99| 85 F2 sta tAdr 

FEQB| 

FE9B[ 7** analyze the function 

FEQB] A6é Fl ldx tFunc 7 get it back 

FE9D| CA dex 7 start decoding 

FEQE| FO** beq xLoad 7; 1 -> load image 

FEAO| CA dex 

FEA1| FO** beq xDump 7 2 -> get bytes 

FEA3| CA dex 

FEA4| DO** bne $3 

FEA6| 4C 14FE jmp xGo 7; 3 -> go 

FEA4* 03 

FEA9| 4C **** $3. Jmp xNAK 7; if none, error 

FEAC | 

FEAC | FORO IR FO IR IR FOR FOR FRI RK IK IIR IK I IK IK KIRKE RIKI KK RR KIRK ARIK ERIK KIRK RRR EH 
FEQE* OC 

FEAC | xLoad 7* load a (large) group of bytes. 

FEAC | PORT RR RR RR KOR IRR TO IKK FORK BI IRR RK RR RK RICK ROK RIK RIK RK RK RK RR KR KER KK 
FEAC{ 20 **** jsr getB 7 get word count 

FEAF| 85 F5 sta tCnt+1 7; ©(veverse order) 

FEB1| 20 **** jsr getB 

FEB4| 85 F4 sta tCnt 

FEB6| DO** bne $1 7 if mod 256 

FEB8| C6 F5 dec tCnt+1 7; )06special case it 

FEBA] 

FEB6* 02 

FEBA| 20 **** $1 jsr getB ? get the next byte 

FEBD| 91 F2 sta @tAdr,Y 3; do it 

FEBF| 20 **** jsr incAdr 

FEC2| 90F6 bec $1 

FEC4 | 

FEC4[ 20 **** jsr getEOP 7; check all at end 

FEC7| 

FEC7 | 3** acknowledge a correct outward packet 

FEC7| AQ 06 xACK lda #aACK ; send ACK for good feelings 
FEC9| 20 **** jsr putB 
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FECC| 4C 73FE jmp reTalk 7 and loop 

FECF | 

FECF [ ORIG ICICI IOI II ICICI OIG IGI CII SII IGI ICICI RIOR IOI IKK AK 
FEA1* 2c 

FECF | xDump 7* get a bunch of bytes back. 

FECE | DOGG GIGS IOIGIOIGIGI ICICI TOISIOI OIC ISIC ICIS GIO OSI GIGI ISO IIIS IOI I IOI 
FECF | 

FECF| 20 **** jsr getB 7 count 

FED2| 85 F5 sta tCntt1 

FED4| 20 **** jsxr getB 

FED7| 85 F4 sta tCnt 

FED9| DO** bne $1 7; Lf mod 256 

FEDB| C6é F5 dec tCnt+1 7; special case it 

FEDD | 

FED9* 02 

FEDD| 20 **** $1 4sr getEOP 3; end-of-packet 

FEEO| A9 00 lda #0 7 start checksum 

FEE2| 85 FO sta tCKS 

FEE4| AQ 02 lda #aSTX ? start reply 

FEE6]| 20 **** jsr putB 

FEEQ9| 

FEE9| Bl F2 $2 lda @tAdr,Y 7; send the bytes requested 
FEEB| 20 **** jsr putB 

FEEE| 20 **** jsr incAdr 


62 
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FEF1[ 90F6 bec $2 7 loop till done 
FEF3| 
FEF3| 20 **** jsr putEOP end the packet 


7s Me 


FEF6| 4C 73FE jmp reTalk and, we're done 
FEFQ| 

FEF9 | >** send NAK to let clown know somethings wrong 
FEAA* FOFE 

FE8D* FOFE 

FEF9| A9 15 xXNAK lda #aNAK 

FEFB| 20 **** jsr putB 

FEFE| 4C 73FE jmp reTalk 7 and loop 

FFO1| 

FFO1} 3** getEOP, get end-of-pkt, w/ checksum test 
FEDE* O1FF 

FECS* O1LFF 

FE1L5* OLFF 

FFO1| 20 **** getEOP jsr getB ? get presumed ETX 
FFO4|] c9 03 cmp #aETX 

FFO6| DOFL bne xNAK 3; if not correct, flag it 
FFO8| 20 **** jsr getB ; this sb CKS 

FFOB| A5 FO lda tCKS 3; is it 0 at this pt? 
FFOD| DOEA bne xNAK 7; nope, error 

FFOF| 60 rts ; else, simply return 
FF10| 

FF10| s** putEOP, send a proper end-of-packet 

FEF4* 1OFF 

FF1O| A9 03 putEOP lda #aETX 7 send ETX 

FF12| 20 **** jsr putB 

FF1L5| 06 FO asl tCKS ; then, checksum 
FF1L7| 90** bec $1 

FF19| E6 FO ine tCKS 

FF17* 02 
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FF1B| AQ OO $1 Ilda #0 

FF1D| 38 sec 

FFLE| E5 FO sbc tCKS 7; the negative 

FF20| 20 **** jsr putB 

FF23| 60 rts 

FF24 | 

FF24 | i** getB, fetch a byte 

FFO9* 24FF 

FFO2* 24FF 

FED5* 24FF 

FEDO* 24FF 

FEBB* 24FF 

FEB2* 24FF 

FEAD* 24FF 

FE97* 24FF 

FE92* 24FF 

FE88* 24FF 

FE7D* 24FF 

FF24| AQ O1 getB lda #RCA ; setup test loop 
FF26| A2 00 idx #0 3; timout counters 

FF28| AO 00 ldy #0 

FF2A|] 2c 0240 $1 bit DBGctrl ; have a byte? 

FF2D | 

FF2D| DO** bne $2 3; yes, process it 

FF2F| 88 dey 

FF30| DOF8 bne $1 

FF32| CA dex 

FF33| DOFS bne $1 

FF35| ;* if we timeout, reset the world 

FF35] AS Fl lda tFune 7 are we in packet? 
FF37[| DOCO bne xNAK ;))«6yes, so send NAK first 
FF39| 4C 73FE : jmp reTalk 7 else, just do again 
FF3C | 

FF2D* OD 

FF3C| AD 0340 $2 lda DBGdata ; get the byte 

FF3F| 48 pha 7 save it 

FF40| 06 FO asl tCKS 7; accumulate Checksum 
FF42| 65 FO adc tCKS 

FF44| 85 FO sta tCKS 

FF46| AO 00 ldy #0 7; leave w/ Y zero for stores 
FF48| 68 pla ; note: N/Z are set by recv'd byte 
FF49| 60 rts 

FF4A| 

FF4A| 7** putB, stash a byte 

FF21* 4APF 

FFi3* 4AFF 

FEFC* 4AFPF 

FEEC* 4AFF 

FEE7* 4AFF 

FECA* 4AFF 

FF4A| 48 putB pha ; save the byte 

FF4B| AQ 04 lda #TBE j; set bit 

FF4D| 2c 0240 $1 bit DBGctrl ; ready for next? 
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FF50| FOFB beq $1 
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FF52| 68 pla 

FF53| 8D 0340 sta DBGdata 

FF56| 06 FO asl tCKS - 3 update checksum 

FF58| 65 FO ade tCKS 

FF5A{| 85 FO sta tCKS 

FF5Cc| AO 00 ldy #0 ; make sure of Y for indirect stores 
FF5E| 60 rts 

FF5F{ 

FF5F{ ** incAdr, perform updates of tAdr, tCnt; leave C set when done 
FEEF* SFFF 

FECO* 5FFP 

FFSF| E6 F2 incAdr inc tAdr 7 update address 

FF61| DO** bne $1 

FF63| E6 F3 ine tAdr+1 

FF61* 02 

FF65| C6 F4 $1 dec tCnt 7; dec counter 

FF67| DO** bne $2 
FF69| C6 F5 dec tCnt+1 
FF6B| 10** bpl $2 
FF6D| 38 sec 

FF6E| 60 rts 

FEOF] 

FF6B* 02 

FF67* 06 

FF6F| 18 $2 cle 

FF7O| 60 rts 

FF71 | 

FF71| pun eof, pcDBG 
FF71| 

FF71| 

FF71| FF FP FF FF FF .org OFFFA 7; vectors for code 
FFFA| 43FE .word xNMI 

FFFC| 94E0 .word XRESET ; hardware RESET vector 
FFFE| ACE2 .word sccint 

0000 | .endc 

0000 | 

-0000] .end 
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show done 


=. 


signal more to go 
and, leave 


“=e Se 


AB - Absolute LB - Label UD - Undefined MC - Macro 
RF — Ref DF - Def PR - Proc FC - Func 
PB - Public PV -— Private cS - Consts 


AACK AB 0006| ABTRQRS LB FO44| ADDDELE LB EVCD| ADDDELW LB E7C8| ADDDELX LB E7CO 
AETX AB 0003| AEXT LB E2CA| ANAK AB 0015| AREG AB OOFA| ASTX AB 0002 
ATBE LB E295| ATBITS LB E05C| ATBL AB 0027| ATBLL AB OO1A| ATC AB OOE4 
ATMAPS LB EO53{ ATP AB OOEO| ATPH AB OOE2| ATPLOOP LB F29D| ATPSCAN LB F373 
ATPSCN1 LB F381| ATPSCN2 LB F3AE| ATPTASK LB F283| ATPTIME LB F2A0] ATPXMIT LB F440 
ATSNBPZ LB F33F| ATSREL LB F35C| ATSRELZ LB F34D| ATSREQ LB F3BF| ATSREQZ LB F349 
ATSRSP LB F3DE{[ ATSRSPX LB F3D9}| ATSRSPZ LB F349| ATSXXX LB F3C2| ATSZ22Z LB F34F 
ATTXQ AB OOEC| ATTXQHD AB OOEC| ATTXQTL AB OOED| ATXNBP LB F437{ ATXREQ LB F4D1 
ATXRSP LB F48F| ATXXXY LB F4F5| ATXXXZ LB F50D| BADCT AB 00C2} BBIT AB 0010 
BEXT LB E2DA| BITCOUNT LB EA49| BITS LB EQ4B| BLDDDP LB F23A| BLDDDPX LB FI1E8 
BLDHDR LB F1C8| BLDHDR1 LB F25D| BLDTREQ LB F134| BLDTRSP LB F1l1C| BLDIT LB FOD1 
BLDTT1 LB FOEF| BTBL AB 0000| BTBLL AB 0027{ CBIT AB 0001| CHKDDP LB EB49 
CHKLAP LB E7VE1{ CHKSKT LB EB78| CKDATA LB ECE7| CKDATAO LB EDOD| CKHDR LB ECB6 
CKIDLE LB EA32] CKIDLE1 LB EA34| CMDDONE LB E345| CMDSTAT LB E34C{ CMDTASK LB E35E 
CRCCT AB 0OOCO!| CTBL LB E2EA| CTBLL AB 0039| CTSCT AB OOB8| CVTBUFN LB E244 
DBGITBL LB FEOO{ DBGITBLL AB OOOA| DBIT AB 0008] DISPATCH LB E212| DOCKS LB EC97 
DUPCT AB 00C6{ FNDTT LB EFEB| FREEDMA LB E43B| GETB LB FF24| GETEOP LB FFO1 
GETFREE LB E233| GOCMD LB E3B1| IBIT AB 0004| INCADR LB FFSF| ITBL LB EQOA 
LAPTBL AB 0160| LNGCT AB 00C4{ LSTATP AB OOE9| LSTITP AB OOE8| NBIT AB 0080 
NBRTRYS AB OOCE| NBTMOUT AB OOCD| NBTTP AB OO0CC| NMIFLG AB OOFF| NRXREQ LB EF47 
OPNCLSE LB EB44| OPNCLSX LB EB2F| OVRCT AB OOBE| PCCARD PR ----| PCREG AB OOFC 
POSTSTS LB E323] PREG AB OOFB| PUTB LB FF4A| PUTEOP LB FF10| PUTFREE LB E273 
PUTXMIT LB E280| RANDOM LB EA58| RCVFREE LB E4CA| RCVTASK LB E4CD| RCVWAIT LB E4E3 
RDDMA LB E450| RETALK LB FE73| RQBASE AB 0309| RQPAGE AB 0300{ RTSCT AB OOB6 
RTXMIT LB EEOD| RXACK LB E622| RXATP LB EEC5| RXBAD LB E62C| RXCRC LB ES5E8 
RXCTS LB E622| RXDATA LB E6B4| RXDDP1 LB EADS| RXENB AB 0022| RXENBL AB 0003 
RXENQ LB E680| RXEOF LB ESF5| RXFLUSH LB E653|[ RXINTR LB E5A3{ RXLAP LB E60A 
RXLNG LB ESE4| RXOVR LB ESEO| RXREL LB EE9B| RXREQ LB EEE4| RXRESET LB E62E 
RXRSP LB EF58| RXRST AB 0020| RXRSTL AB 0005| RXRTI LB E648| RXRITS LB E684 
RXSKP LB ES5SED| RXSKP1 LB ESEC| RXSTS LB EF12| RXUND LB ESF1{ RXXXX LB EG68A 
SCCINT LB E2AC| SCCINTX LB E2AD| SEMAP LB E1CC| SEMAV LB E198] SEMAX LB E1CA 
SENDNBP AB 0040| SENDNBPN AB 0046| SENDNBPX AB 0042| SENDNBPZ AB 0045| SENDREL AB 0030 
SENDRELR AB 0033| SENDRELX AB 0034| SENDRELZ AB 0032| SENDREQ AB 0010| SENDREQX AB 0012 
SENDREQZ AB 0015| SENDRSP AB 0020| SENDRSPN AB 0028| SENDRSPR AB 0026| SENDRSPX AB 0022 
SENDRSPZ AB 0025] SETDPDC LB E14A| SETRTMP LB EDB1| SETRXP LB E25B| SETSTAT LB E080 
SIGNAL LB E174} SKPCT AB OOBA| SKTTBL AB 0140| SNDNBPE LB EB90| SPREG AB OOF7 
STCKS LB ED27| STKBASE AB 0180| STKSIZE AB 0020| STSTBL AB 0100[ TADR AB OOF2 
TASKP LB EOOO| TCKS AB OOFO!| TCNT AB OOF4| TFUNC AB OOF1| TSTKP AB OOF6 
TTBASE AB 0209| TTIBFR AB 0203| TTBIMAP AB 0306| TTBUFN AB 0204| TTCCI AB 0305 
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TTDLNG AB 0207] TTDNET AB 0300] TTDNODE AB 0302| TTDSKT AB 0303{| TTFLGS AB 0204 
TTLINK AB 0202] TINBR AB 0013! TTNEXT AB 030D| TTPAGE AB 0200j| TTRID AB 0201 
TTRSMAP AB 0205| TTRIRYS AB 0206] ITTSIZE AB OOOD| TTSIZET AB OOF7| TTSQNBR AB 0306 
TTSSKT AB 0304| TISTATE AB 0200| ITTTID AB 0307{ TTTMOUT AB O0205| TITIMR AB 0203 
TTTXMAP AB 0206] TTUSER AB 0309! TXCOLSN LB E951| TXDDP LB EC2E| TXDDP1 LB EC54 
TXDDP2 LB ED30{ TXDDPX LB EC1iC| TXDEFER LB E8E6| TXFFCS LB E9B3| TXFHDR LB E9EF 
TXFRAME LB E9BO| TXIDLWT LB E8A1| TXN1 LB EDS5E| TXNBP LB ED44| TXPACKET LB E857 
TXPKTO LB E897[ TXPKTL LB E8BE| TXPKT2 LB E8F6| TXPKT3 LB E904| TXPKT4 LB E927 
TXPKTS LB E969| TXPKTAE LB E59C| TXPKTX LB EQAD| UNDCT AB OOBC| VBIT AB 0040 
WAIT LB £164| WAITDMA LB E424| WAITDMA2 LB E429| WRDMA LB E48D{ XABTNBP LB FO3A 
XABTREQ LB FO3E| XABTRSP LB FO42| XACK LB FEC7| XADDLAP LB E7B3| XADDRSP LB F17C 
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XBRIDGE LB E401[ XBRK LB FE4A| XC AB OOD2{ XCHIST AB 00OD4| XCLSSKT LB EB37 
XCTRYS AB QOOD5|} XDELAY AB OODD| XDELLAP LB E7D2| XDHIST AB OOD6| XDTRYS AB 0OD7 
XDUMP LB FECF| XFBCAST AB OODB{ XGMASK AB OOD8} xGO LB FE14] XINITLAP LB E735 
XLMASK AB OOD9| XLOAD LB FEAC| XMTATP AB OOEE| XMTTASK LB E528| XNAK LB FEF9 
XNMI LB FE43| XOPNSKT LB EB24{ XP AB OODO| XPC2US LB E130{ XPCERR LB E3AC 
XRDSFLG LB E3FC| XREG AB OOF8| XRESET LB E094| XRTI LB FE30} XRXATP LB EE70 
XRXATPX LB EE3E| XRXDDP LB EAAS| XRXDDP1 LB EACB| XRXDDPX LB EA84| XRXLAP LB E6E7 
XRXPKT1 LB E72A| XRXPKT2 LB E71F| XRXRTMP LB ED91| XSCCA LB EO72| XSCCB LB E064 
XSEED AB OODE| XSNDNBP LB EB8C| XSNDREQ LB FOCF| XSNDRSP LB FOAS5| XSTATUS LB E3BC 
XTALK LB FESA| XTXDDP LB EB95| XTXLAP LB E7F1| XTXPKTA LB E585] XTXPKTD LB E82B 
XTXPKTX LB E812| XTXPKTZ LB E823{| XUS2PC LB E13D| XWRSFLG LB E3F7| YIELD LB ELF? 
YIELD1 LB E20B| YREG AB OOF9| ZBIT AB 0002| 
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Current minimum space is 450 words. 
E161* 2454 
E136* 50E4 
E143* 8DE4 
E006* CCE4 
E004* 27E5 
E396* 35E7 
E2FA* B2E7 
E2FD* D1E7 
E300* FOE7 
E571* 57E8 
E770* 5S8EA 
E526* 84EA 
E51D* ASEA 
E303* 23EB 
E306* 36EB 
E30F* 8BEB 
E30C* 94EB 
E309* 94EB 
E7B1* BLED 
EAQF* 3EEE 
EAC7* 7OEE 
E312* 39F0 
E31E* 3DFO 
E321* 41F0 
E318* A4FO 
E315* CEFO 
E31B* 7BF1 
E008* 82F2 


Assembly complete: 4947 lines 
0 Errors flagged on this Assembly 
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